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Neues Vorwort zur Digitalisierung 


Es hat lange gedauert! Aber nun hat sich Thomas Werner 
die viele Arbeit gemacht, den größten Teil meiner Bücher 
nach, zum Teil über dreißig, Jahren in interaktiver PDF- 
Form zu digitalisieren und als Public Domain kostenlos on¬ 
line zur Verfügung zu stellen. Nachdem meine Bücher einen 
langen Dornröschenschlaf hinter sich haben, sollen sie und 
das immense darin festgeschriebene Wissen jetzt wieder 
zum nützlichen Leben erweckt werden : 0 ) 

Meiner Ansicht nach ist die objektorientierte Programmie¬ 
rung nicht für die Massenanwendung geeignet. Nach mei¬ 
ner Berechnung sind nur ca. 15 Prozent der Bevölkerung in 
der Lage, mit der OOP sinnvolle Erfolge zu erzielen. Um 
aber "massenfähig" zu sein, muss eine Programmiersprache 
mindestens 80 Prozent der Bevölkerung erreichen, damit 
sich Lehrer und Schüler auch außerhalb von IT- 
Leistungskursen über die Softwareentwicklung so verstän¬ 
digen können, dass der eine - vermittelbar und auch prüf¬ 
bar - wenigstens "einigermaßen" versteht, was der andere 
meint. Andererseits "reißt unweigerlich der Faden" zwi¬ 
schen Ausbildern und Lernenden. Daher ist es auch kein 
Wunder, dass sich die prozeduralen und damit auch leicht 
anwendbaren Basic-Programmiersprachen, wie z.B. das 
sehr populäre GFA-Basic, einer gewissen Renaissance er¬ 
freuen. 

Diese Tendenz werde ich natürlich als ehemals populärer 
Bestseller-Autor nach all meinen Möglichkeiten tatkräftig 
unterstützen. Ich verfüge über mehr als 4000 Seiten umfas¬ 
senden, ausführlichen und auch unter den wachsamen Au¬ 
gen der Öffentlichkeit profund geprüften Software-Wissens. 



Dieses Wissen ist auch in der heutigen Zeit absolut nicht 
überflüssig und veraltet, sondern bildet auch heute noch die 
Basis für algorithmisches Grundlagenwissen. 

Aber damit nicht genug: ich habe zudem beschlossen, eine 
neue Programmiersprache namens "QSIX©" zu entwickeln. 
Sie wird sich in vielen Punkten an einfachem Standard- 
Basic anlehnen. Auf der weltweit überall auf allen Betriebs¬ 
systemen und in jedem Standardbrowser verfügbaren 
- und damit 100% cross-kompatiblen - Plattform von 
HTMLs/Canvas wird "QS!X©" als Open Source-Version 
(ähnlich LINUX) verfügbar sein. Nähere Informationen da¬ 
zu finden Sie unter: 

http;//www,litzkendorf.net/invitation info d.pdf 

Damit ist auch der "Klasse für die Masse"-Philosophie von 
Frank Ostrowski (dem GFA-Basic-Vater) Rechnung getra¬ 
gen. Wenn denn alles so funktioniert, wie ich es mir vorstel¬ 
le, wird die weise, sanfte und erzfreundlich geduldige und 
bescheidene Denkart von Frank Ostrowski auch Jahre nach 
seinem (viel zu frühen) Ableben noch weltweit merkliche 
Wirkung tragen! Er bildet dann verdientermaßen - zumin¬ 
dest im IT-Business - die philosophische Grundlage für 
eine Art "Weltsprache"! Das würde ihm sicher sehr gefallen! 

In treuem Gedenken an einen wirklich großen Mann, mit 
dem ich das Vergnügen hatte, teil- und zeitweise recht eng 
und vertraut zusammen zu arbeiten und dem mit "QS!X©" 
auch ein digitales - und verdientes - Denkmal gesetzt wird! 

Uwe Litzkendorf 
Hildesheim, im Mai 2020 
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Vorwort 

Insider sind sicherlich nicht besonders verwundert, daß nun nach 
ca. 5 Jahren GFA-BASIC-Euphorie auf dem ATARI-ST auch die 
entsprechenden MSDOS-Versionen,sowie auch eineWINDOWS- 
Version dieser phantastischen Programmiersprache erhältlich ist 
Wer die Entwicklung dieses BASIC’s in den letzten Jahren verfolgt 
hat weiß, wie sehr sich diese - anfänglich noch recht bescheidene 
Sprache - vom ‘Hoppla, da bin /di...’-Typ zu einem absolut 
emsaunehmenden und eigenständigen Entwicklungs-System ge¬ 
mausert hat Das führte dazu, daß selbst angesehene Software- 
Häuser und C-verschworene Profi-Programmierer ein (oft auch 
zwei) Auge(n) auf diese äußerst komfortable und unkomplizierte 
Möglichteit der Programmentwicklung warfen. 

Es stellte sich heraus, daß es in kaum einer anderen Sprache für 
jedermann so leicht möglich sein sollte, seinen Programmen ein 
professionelles, komfortables und zugleich auch schnelles Outfit 
zu verleihen. Dem eingefleischten C-Programmierer bleibt an¬ 
hand des perfekten GFA-BASIC- Compilers dann noch die Mög¬ 
lichkeit zeitintensive oder z.B. rekursive Programmteile (kann 
GFA-BASIC auch, nur nicht ganz so schnell) als C-Module in das 
BASIC-Programm einzulinken. 

Wer mein ‘Großes GFA-BASIC-Buch’zumAari ST kennt wird ahnen 
können, daß ich eine begeisterter Fan des Assembler-Genius' und 
GFA-BASIC-Vaters Frank Ostrowski bin. Auch zum GFA-BASIC 
unter MSDOS und MS-WINDOWS zolle ich ihm hiermit meine 
uneingeschränkte Hochachtung. 

Ich kenne den Werdegang einer GFA-BASIC-Version aus nächster 
Nähe und weiß aus guter Erbhrung,daß die ersten Vorab-Versio¬ 
nen noch hier und da Mängel und logische Fehler beinhalten. Doch 
ich weiß auch, daß diese Fehler nach kurzer Zeit gründlich 
ausgemerzt sein werden und immer wieder neue, mächtige Befeh¬ 
le und Funktionen zu einem erheblichen ‘Nutzen-Wachstum’ 
führen. Der kundenfreundliche Update-Service der Firma GFA- 
Systemtechnik gewährleistet zudem die Möglichkeit neueste 
BASIC-Versionen für jedermann erschwinglich zu machen, sodaß 
in kurzer Zeit ganze Heerscharen enthusiastischer Programmie¬ 
rer sich dieser legendären Sprache bemächtigen werden. 

Erste Anzeichen deuten bereits heute darauf hin, daß schon kurz 
nach Markteinführung ein großer Teil der GFA-BASIC-Routiniers 
am Werke ist um den gewaltigen Softv^re-Bestand, der auf 
ATARI SToder COMMODORE AMIGA unterGFA-BASIC 
produziert wurde,auch unter MSDOS undWINDOWS verfüg¬ 
bar zu machen. Nach antinglichen Schwierigkeiten überraschte 
mich die doch weitgehende Kompatibilität zwischen dem ATARI- 
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GFA-BASIC und dem GFA-BASIC für MSDOS. Es bleiben zwar - 
wie sollte es bei zwei so unterschiedlichen Systemen auch anders 
sein - unübersehbare Probleme bei der Anpassung, aber dieser 
Mangel wird sicherlich in recht kurzer Zeit dadurch behoben sein, 
daß Konverter erhältlich sein werden, die diese Übertragung dann 
erleichtern. 

Aus all diesen vorgenannten Gründen haben wir uns das Ziel 
gesetzt. Ihnen mit diesem ‘COLID-//o/Spor’ in kürzestmöglicher 
Frist einen kompetenten und umfassenden Schnell-Einstieg zu 
bieten, damit Sie ‘am Ball bleiben’. Dieser ‘HotSpof stellt eine 
umfassende Kurzbeschreibung aller GFA-BASIC-Befehle unter 
MSDOS zurVerfügung. 

Bei diesem Schnell-Einstieg soll es allerdings nicht bleiben. Wir 
werden circa zum Mai 92 ein GFA-BASIC-Buch der Premium- 
Klasse vorstellen. 'Das große CFA-BASICSuch zum Atari ST ist 
Dank des wohlwollenden Interesses meiner Leser zu einem der 
meistverkauften BASIC-Bücher geworden (Gesamtauflage;65.000 
Exemplare). Dieses überaus erfolgreiche Nachschlagewerk wird 
nun in seinem gesamten Umfang an die MSDOS- undWINDOWS- 
Versionen, sowie später auch an die anderen Versionen des GFA- 
BASICs (z.B. UNIX) angepaßt und dann jeweils unter dem Titel 
•Das PREMIUM-Buch zum GFA-BASIC furJ im COLID-Verlag er¬ 
scheinen. 


Alle systemspezifischen Anpassungen werden dabei berücksich¬ 
tigt sein und eine Fülle ausgesuchter und nützlicher Routinen zum 
direkten Einsatz in Ihren eigenen Programmen zur Verfügung 
stehen. Auch mit dem Thema 'Programmportierung vom ATARI- 
GFA-BASIC zum GFA-BASIC für MSDOS' werden wir uns in 
diesem Buch näher befassen. Daß dieses Buch dann auch über 


umfassende und sinnvolle Index-, Syntax- und Befehlslisten, sowie 
Themenübersichten und aufschlußreiche Querverweise verfügen 
wird, ist für meine bisherigen Leser schon zur Selbstverständlichkeit 
geworden. 

Lassen Sie sich also angenehm überraschen! 



Uwe Litzkendorf 


im Januar 1992 


hlotSpot (§[^ 
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I. HOTSPOTGFA-BASIC FÜR MSDOS 
1.1. ZUM ALLGEMEINEN VERSTÄNDNIS 

Das Anliegen dieses kleinen Buches ist es,die mehr als 530 Befehle, 
Funktionen und Operatoren und Variablen des GFA-BASICs für 
MSDOS nach thematischen Schwerpunkten zu ordnen, um so das 
Auffinden der gesuchten Befehlsbeschreibungen nach 
problemorientierten Gesichtspunkten zu ermöglichen bzw. zu 
erleichtern. 

Wir gehen dabei davon aus, daß Sie als Leser dieses HotSpot's mit 
den grundsätzlichenVerfahrensweisen bzw. den Möglichkeiten der 
Anwendungs der meisten Befehle von anderen B^IC-Dialekten 
her schon einigermaßen vertraut sind. Weiterführenden Doku¬ 
mentationen zu den Befehlen - wie umfangreiche Beispiel-Pro¬ 
gramme zu den einzelnen Befehlen oder Tips undTricks - werden 
Sie hier - bis auf einige Bonbons (siehe z.B. STRJQ) - vergeblich 
suchen. 

Dieses Buch ist so angelegt, daß Sie neben dem Inhaltsverzeichnis 
einerseits über den Stichwort-Index (s.ANHANG) und anderer¬ 
seits über die Befehlsliste (s.ANHANG), sowie auch über die 
assoziative THEMENÜBERSICHT (sANHANG) zum Ziel gelan¬ 
gen. Innerhalb der Kapitel wurde versucht weitestgehend die 
alphabetische Reihenfolge der Befehle und Funktionen zu berück¬ 
sichtigen. In einigen Fällen konnte dieses Schema jedoch nicht 
eingehalten werden. Richten Sie sich dann bitte nach der eben 
genannten'THEMENÜBERSICHT.wo die Befehlsbeschreibungen 
möglichst nach deren thematischer Zusammengehörigkeit geglie¬ 
dert wurden. 

Neben einer klaren Gliederung wird die Effizienz d\eses HotSpot’s 
durch einige Vorgaben zur einheitlichen Darstellunggewährleistet 
die im gesamten Text Anwendung finden: 

< > Wird bei einer Befehlsbeschreibung auf bestimmte 
Tasten verwiesen, wird ihr Name zur besseren 
Kenntlichmachung in spitzen Klammern angegeben 
(z.B. <Shift>, <A>, <Return> oder <Undo>). Da 
diese Klammern nicht inner halb von Listings oder 
Syntaxbeschreibungen auftauchen, sind Sie auch 
leicht von 'größer als / kleiner als’- bzw. 'BUshift’- 
Pfeilen zu unterscheiden. 

[] Bei Befehlen, deren Syntax variabel ist wird ein 

optionaler Befehlsteil in eckigen Klammem angegeben. 
Dies bedeutet daß die Angabe (z.B. [;,’] oder \,Länge]) 
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nur dann im Befehl angegeben werden muß. wenn die 
damit verbundene Option genutzt werden soll. 

{ } Viele GFA-BASIC-Befehle können als Abkürzung 
angegeben werden. Der Interpreter erweitert diese 
dann selbstständig auf die richtige Form. Sollte zu 
einem Befehl eine Kurzschreibweise existieren, ist 
diese in der Titelzeile und in der Quick-Referenz 
innerhalb von geschweiften Klammem angegeben 
(z.B. { SYS } oder { RET}). Diese geschweiften 
Klammern werden auch von einigen BASIC-Befehlen 
(Speicherzugriffe wie CHAR{}, BYTE{} etc.) 
verwendet. Die Verwechslungsgefahr mit den hier 
gemeinten Abkürzungsklammern ist jedoch 
gering, da diese aus schließlich in der Kopfzeile der 
jeweilige Befehlsbeschreibung verwendet wurden. 

... Soll eine Folge von Anweisungen innerhalb von 

Befehlen verdeutlicht werden.geschieht dies anhand 
einer Punktlinie (z.B. FOR... NEXT). 

Grundsätzlich sind in der Syntax-Beschreibung alle Befehlsnamen 
in Großbuchstaben, alle Variablen, Parameter und Strings in nor¬ 
maler Schreibweise dargestellt (z.B. OPENW ItHandle). 

Bei den Parameterangaben wurden weitgehend einheitliche Be¬ 
zeichnungen verwendet: 


Adresse = Speicheradressen werden unter MSDOSgrund 

sätzlich im Wort-Format als Segment- 
Startadresse und Byte-Offset durch einen 
Doppelpunkt getrennt ange geben 
(SegmenwortOffsetwort) 

Z.B. $A000:800 oder 5464:20*40. 


Anz = 

Arg = 

Back = 

Expr/Expr$ = 

FeldO 

Index = 

Kanal = 

Nummer - 


Anzahl 

Funktionsargument 

Rückgabedaten bei Funktionen 

numerischer/alphanumerischer Ausdruck 

beliebige Feldbezeichnung 

Index von Feldelementen 

Datei-Identifikator 

GFA-Fensternummer 
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Quem 

beliebiger Textausdruck, Zeichenkette oder 
Stringvariable, die einer Stringfunktion als 
Ausgangstext dient. 

Quell 

Startadresse (SegmencOffset) des 
Quellbereichs einer Speicheroperation (s.oben 
unter ‘Adresse') 

QuellO 

Fließkommafeld, das bei MATxxx-Befehlen als 
Quellfeld dient 

Start = 

meistens String-Startposition für 
stringbezogene Operationen 

Text$rText”= 

beliebige Zeichenkette, die in den 
meisten Fällen auch als Stringvariable 
übergeben werden kann 

VarA'arS = 

beliebiger Variablenname 

Xpos/Ypos = 

Bildschirmkoordinaten 

Ziel 

Startadresse (SegmentOffset) des 
Zielbereichs einer Speicheroperation (s.oben 
unter ‘Adresse’) 


Bei ‘Dateiname ‘Programmname ‘und ‘Ordner ’ ist davon auszu¬ 
gehen, daß ein evtl, erforderlicher Suchpfad in den Namen ein¬ 
zubinden ist 

Bei einigen Befehlen und Funktionen kam es darauf an, zwischen 
vorzeichen behafteten und vorzeichenlosen Daten und Werten zu 
unterscheiden. Um diese beiden langen Worte nicht jedesmal voll 
ausschreiben zu müssen, wurde häufig statt ‘vorzeichenbehaftet’ 
die Bezeichnung’signed’ und statt‘vorzeichenlos’ die Bezeichnung 
‘absolut’ verwendet 

Unter dem Begriff ‘Ausdruck’ {s.o. ‘Expr’) wird hier eine beliebige 
Zusammenstellung von Konstanten, Formeln,Texten, Funktionen 
und Variablen verstanden, die zusammen ein Ergebnis liefern: 

A%=B%+ ((234''2/4.7) *12.95*C%) ^2.1317+@Func (Abc%) 

I I 

-z.B. numerischer Ausdruck = Eb^jr- 


oder 

A$=' 'Text' '+sra$(A%*B%)+SPACES (10)+SFunc$ (Abc$)+B$ 

I I 

- Z.B. Text-Ausdruck = E3^r$- 

ln den Beschreibungen von Funktionen wird nicht explizit angege- 
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ben.daß die Ergebnisse aller (auch selbstdefinierter) Funktionen 
auf verschiedene Weisen ausgewertet werden können. 
Funktionsaufrufe stehen immer stellvertretend für einen Wert 
oder String, den diese Funktion liefert.Sie können deshalb also wie 
jeder beliebige Wert, String oder Ausdruck in Programmzeilen 
verwendet und eingesetzt werden. 

Einsatz von selbstdefinierte Funktionen: 

VarS=@Func (als Zuweisung) 

PRINT SFuno (als Ausgabe) 

IF @Func=X THEN ... (als Abfrage) 

VOID @Func (als Dummyaufruf) 

Einsatz von BASIC-Funktionen (hier: FRE) 

Varl=FRE(01 (als Zuweisung) 

PRINT FRE(O) (als Ausgabe) 

IF FRE(0)=X THEN ... (als Abfrage) 

VOID FRE(O) (als Dumrtiyaufruf) 

In den S/ntaxzeilen von Funktionen wird in diesem Buch zur 

Verdeutlichung die Zuweisungsvariante ('Var=Funirtion()') 
verwendet. 


Notizen: 
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1.2. DER EDITOR 


r 

Nachdem Sie das GFA-BASIC gestartet haben, erscheint ein fast 
leerer Bildschirm, an dessen oberen und unteren Rand je eine 
andersfarbige Zeile angeordnet ist Dies ist die Programmeingabe- 
Oberfläche des GFA BASIC: der Editor. Die obere Zeile enthält 
mehrere Menütitel, hinter denen sich die eigentlichen 
Editorfunktionen verbergen (s.u.:‘DAS EDITOR-MENÜ’). In der 
unteren Zeile befindet sich die Angabe der aktuellen Zeilen- und 
Spaltennummer, sowie eine Statuszeile, bzw. die Angabe des 
aktuellen Dateipfades. 

Sofern sie (ratsamer Weise) über eine Maus verfügen und der 
dazugehörige Treiber installiert ist erscheint ein dunkles Recht¬ 
eck, das mit der Maus über den Bildschirm bewegt werden kann. 
Durch einen Links-Mausklick kann mit diesem Zeiger der Cursor 
(=blinkender Unterstrich) an eine beliebige Position innerhalb des 
Programmtextes (soweit vorhanden) bewegt werden. Befindet 
sich der Mauszeiger auf einer der obersten oder untersten vier 
angezeigten Programmzeilen, so kann das Listing durch Rechts- 
Mausklick in die entsprechende Richtung gescrollt werden. 

Der GFA-BASIC-Programmeditor funktioniert im wesentlichen 
wie eine normale'Textverarbeitung. Bei genauerer Betrachtung 
fallen jedoch schnell einige Merkmale auf, die ihn doch weit davon 
unterscheiden.Der wesentlichste Unterschied ist, das eine ge¬ 
schriebene Programmzeile nur dann verlassen werden kann, wenn 
der Editor einen Syntax-Check durchgeführt hat und die Zeile als 
syntaktisch richtig erkennt. Ist sie fehlerhaft, bleibt der Cursor in 
der Zeile stehen und es erscheint in der Fußzeile der Hinweis 
‘Syntax Error'. 

Diese Eigenschaft ist einer der wichtigsten strukturellen Vorteile, 
die GFA-BASIC von anderen BASIC-Dialekten unterscheidet Bis 
zu 90 Prozent aller möglichen Fehler können so schon bei der 
Programmerstellung vermieden werden, ohne daß evtl. Runtime- 
Errors erst durch den Programm- oder Compilerstart gemeldet 
werden und mühselig nachkorrigiert werden müssen. Von den 
bisher gängigen BASIC-Dialekten im MSDDOS-Bereich ist man 
einen recht großen Debug-Aufwand gewöhnt. Erfahrene 
Profiprogrammierer bestätigen immer wieder, daß ein solcher 
Aufvrand in GFA-BASIC kaum notwendig wird, weil dieser Syntax- 
Check den weitaus größten Teil an Fehlernquellen schon bei der 
Programmentwicklung unterbindet 

GFA BASIC verzichtet - wie die meisten modernen BASIC- 
Dialekte - gänzlich auf Zeilennummem.Da diese Sprache prozedural 
orientiert ist und in der 'äußersten Not'ein GOTO auch auf ein 


' HotSpot 




18 


Der Editor 


beliebiges Sprunglabel derselben Struktur (auf der Hauptebene 
oder in PROCEDUREs und FUNCTIONs) gerichtet werden kann, 
ergibt sich auch keine Notwendigkeit dazu. Innerhalb des Editors 
kann die aktuelle Programmzeile bei Bedarf in der Fußzeile abge¬ 
lesen werden. 

Eine weitere unübersehbare Eigenschaft besteht darin, daß der 
GFA-BASIC-Editor selbstständig eine optische Programmstruktur 
generiert, wobei alle struktureinleitenden Befehle (z.B. IF, 
PROCEDURE, REPEAT, DO etc.) bewirken,daß die folgenden 
Programmzeilem um zwei Zeichen nach rechts versetzt werden 
und alle strukturschließenden Befehle (z.B. ENDIF, RETURN, 
UNTIL, LOOP etc.) um zwei Zeichen nach links versetzt 
werden und dabei nachfolgende Zeilen mitziehen. Dies gewährlei¬ 
stet einen schnellen Überblick über die allgemeine 
Programmstruktur und erleichtert die Suche nach logischen Feh¬ 
lern ganz erheblich. 

Die nächste Besonderheit wird dann erkennbar, wenn man - bei 
den meisten Befehlen - statt des kompletten Befehlsnamens die 
dafür vorgesehene Abkürzung verwendet (z.B.'P’ statt ‘PRINT’). 
Der Editor ergänzt diese Abkürzungen automatisch, sodaß hier¬ 
durch bei der Programmerstellung viel Tipparbeit eingespart 
werden kann.Hier im Buch sind dieAbkürzungen in den Kopfzeilen 
der jeweiligen Befehlsbeschreibung zwischen zwei geschweiften 
Klammern (z.B.:ABKÜRZUNG { ABK }) aufgeführt. 

Aus meiner langjährigen Erfahrung weiß ich, daß gerade diese 
Fähigkeiten des Editors - neben der überaus hohen 
Ausführungsgeschwindigkeit des Interpreters - wesentlich zu 
Zeiteinsparungen beitragen.Wer schon einmal ein umfangreiches 
kommerzielles Programm geschrieben hat, wird wissen, daß die 
Zeitspanne eines halben oider gar eines ganzen Jahres für die 
Erstellung eines solchen Programmes keinen besonders großen 
Aufwand darstellt. Mit diesen Zeiträumen (und noch mehr) ist bei 
größeren Projekten ohne weiteres zu rechnen. Wenn durch die 
ausgefeilten Editorfunktionen - dazu zählen auch die unten aufge¬ 
führten Tastaturfunktionen - nur 10 Prozent (erfahrungsgemäß 
sind es mehr!) der Zeit eingespart werden könnten, so wäre das 
- auf ein Jahr bezogen - eine Einsparung von ca. einem Monat 
(!!). 

Die Raffinesse und Mächtigkeit vieler GFA-BASIC-Befehle (Fen¬ 
ster-, Menu- und Dialogbefehle, sowie z.B. RCJNTERSECT, 
BMOVE, MEMXOR, EMSxxx etc.) spart zusätzlich beträcht¬ 
liche Zeit Daß solche Befehle natürlich auch die Effizienz und 
Qualität des Programmes steigern, ist dabei selbstverständlich. 
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1.3. DAS EDITOR - MENÜ 


Die im folgenden beschriebenen Editor-Menüs ermöglichen eine 
Bedienung sowohl per Maus (sofern vorhanden), als auch per 
Cursortasten. Der Markierungsbalken kann durch die 'Auf-' und 
'Abwärts-Cursortaste' in die gewünschte Richtung ge'scrolk’ wer- 
den. Die Einträge der Menüs sind weitestgehend mitTastaturkürzeln 
wählbar. Um den entsprechenden Eintrag auszuwählen, drücken 
Sie bitte den angegebenen 'Hotkey' oder bewegen den 
Markierungsbalken auf den Eintrag und drücken die <Retum>- 
Taste. Mit der Maus haben Sie die Möglichkeit, diese auf den 
gewünschten Editor-Menüpunkt bzw. den jeweiligen Eintrag zu 
fahren und mit der linken Maustaste zu aktivieren. 

‘File’-Menü 

(Datei-Operationen) öffnen: <F I > oder <Alt>+<F> 

Load <L>: Token-Programm (Default '.GFA") laden. Ein 

hiermit geladenes Programm überschreibt das 
aktuelle Programm vollständig.Gfls. vorher das 
aktuelle Programm sichern (vgl. LOAD). 


Sove <S>: Programm im CFA-Tokencode speichern. Das 

aktuelle Programm wird unter dem eingestell¬ 
ten Pfad (s. Fußzeile) und dem zuletzt gültigen 
Dateinamen ohne Nachfrage gespeichert Exi¬ 
stiert für dieses Programm noch kein 
Dateiname, wird es unter TEST.CFA' 
gesichert. 

Sove As <A>: Programm im CFA-Tokencode speichern. Es 

erscheint eine FILESELECT-Box, in welcher die 
Eingabe eines Dateinamens im aktuellen Pfad 
(s.Fußzeile) erwartet wird. Hiermit (oder mit 
SAVE-Befehl) abgespeicherte GFA-BASIC- 
Programme erhalten - sofern keine andere 
vorgegeben wurde - automatisch die Extension 
'GFA'. 

Merge <M>: Programm im ASCII-Textformat laden. Ein 

Programm mit der Default-Extension ".LST‘ 
wird in das aktuelle Programm ab Cursor- 
Position eingefügt. ‘Gemergte’Zeilen, die nicht 
korrekt interpretiert werden können, werden 
auskommentiert und mit dem Symbol =» 
markiert 
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Wrrte <W>: 

Print <P>: 

New <N>: 

VerXXXXX : 

Check <C>: 

Lower <0>: 
Names 


Font <F>: 


Das aktuelle Programm wird alsASCII-Textdatei 
- falls nichts anderes vorgegeben wurde - mit 
der Extension “IST" im aktuellen Pfad gespei¬ 
chert speichern. Es erscheint vorher eine 
FILESELECT-Box, in welcher der gewünsch¬ 
te Name einzutragen ist. 

Nach Bestätigung einer Abfrage wird das aktu¬ 
elle Programm gfls.auf dem Drucker ausgege¬ 
ben. 

Das aktuelle Programm wird nach einer 
Sicherheitsabfrage gfls. aus dem Speicher ge¬ 
löscht. 

Aktuelle Versionsnummer, hat sonst keine Be¬ 
deutung. 

Ist dieser Menüpunkt ‘abgehakt', so wird 
dadurch bestimmt, daß bei Einführung neuer 
Variablen-, Label-, Prozedur- oder 
Funktionsnamen eine Meldung ausgegeben 
wird. Anhand dieser Meldung kann dann 
entschieden werden, ob der neue Name als 
Bestandteil in das Programm übernommen 
wird oder nicht Falls nicht wird die Eingabe als 
Syntax-Error abgewiesen. Bei Editor-Start ist 
diese Funktion ausgeschaltet 

Ist dieser Menüpunkt‘obgehokt’, kann dadurch 
entschieden werden, ob bei Eingabe von 
Variablen- Funktions- Label- oder 
Prozedurnamen alle großgeschriebenen Buch¬ 
staben automatisch in die Kleinschreibung 
konvertiert werden. Ist dies nicht der Fall, so 
werden sowohl groß als auch kleingeschriebene 
Namen vom Editor akzeptiert. Wurde aller¬ 
dings an einer Programmstelle z.B. ein 
Variablenname groß oder gemischt geschrie¬ 
ben und derselbe Name wird erneut in kleiner 
oder sonst anderer Schreibweise eingegeben, 
so übernehmen alle gleichlautenden Namen 
intern automatisch die zuletzt verwendete 
Schreibweise. 

Umschaltung der Editor-Schriftgröße (23 oder 
48 Zeilen) 
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Exit <X> : Der GFA-BASIC-Editor wird nach einer 

Sicherheitsabfrage gfls. in Richtung DOS 
verlassen 


‘Search’ ■ Menü 

(suchen/ersetzen) öffnen: <F2> oder <Alt>+<S> 

Find <F> : Ausdruck ab Cursorposition suchen. Es 

erscheint in der Fußzeile eine Aufforderung zur 
Eingabe eines Suchstrings. Ein gfls.vorher schon 
eingegebener String wird voreingestellt. Die 
Eingabezeile kann durch <Esc> gelöscht 
werden. Durch <Retum> im Anschluß an die 
String-Eingabe wird dann die Suche ausgelöst 
(<Esc>,dann <Return> = Abbruch).Weiteres 
Suchen erfolgt dann über <Strg>+<F> bzw. 
<Ctrl>+<F>. 

Strings innerhalb ‘versteckter’ Prozeduren 
werden nicht gefunden. Wird der Ausdruck 
gefunden, wird die entsprechende Programm¬ 
zeile angezeigt und der Cursor befindet sich auf 
dem ersten Zeichen des gefundenen Ausdrucks. 
Ist der Ausdruck im weiteren Listing nicht 
mehr enthalten, bleibt der Cursor an der 
Suchstart-Position stehen. 

Find Next <l>: Suche mit demselben Ausdruck ab Cursor¬ 

position fortseaen. 

Exchange <E>: Ausdruck ab Cursorposition suchen und gfls. 

ersetzen. Es erscheint in der Fußzeile eine 
Aufforderung zur Eingabe eines Suchstrings. 
Ein gfls. vorher schon eingegebener String wird 
voreingestellt Die Eingabezeile kann durch 
<Esc> gelöscht werden. Eine zweite Aufforde¬ 
rung erwartet dann die Eingabe des Strings, 
durch den der erste ersetzt werden soll. Durch 
<Return> im Anschluß an die String-Eingabe 
wird dann die Suche ausgelöst (<Esc>, dann 
<Return> = Abbruch).Weiteres Suchen und 
Ersetzen erfolgt dann über <Strg>+<E> bzw. 
<Ctrl>+<E>. 

Strings innerhalb ‘versteckter’ Prozeduren 
werden nicht gefunden oder ersetzt. Wird der 
Ausdruck gefunden, wird die entsprechende 
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Programmzeile angezeigt und der Cursor 
befindet sich hinter letzten Zeichen des verän¬ 
derten Ausdrucks. Ist der Ausdruck im weite¬ 
ren Listing nicht mehr enthalten, bleibt der 
Cursor an der Suchstart-Position stehen. 


Exchange <X>; Suche und Ersetzen mit denselben Ausdrücken 
ab Next Cursorposition fortsetzen. 


Cose <C>: Bei der Suche wird Groß-/Kleinschreibung 

a<>A berücksichtigt. 


Nocase<N>: Bei der Suche bleibt Groß-/Kleinschreibung 

o==A unberücksichtigt. 


‘Block’-Menü 

(Block-Operationen) öffnen: <F3> oder <Alt>+<B> 


Set Block <B>: 

Blockstart setzen 

Set Block <K>: 

Blockende setzen 

Copy 

<C>: 

Block an aktuelle Cursorposition kopieren. 
Block in Block ist nicht möglich. 

Move 

<M>: 

Block an aktuelle Cursorposition verschieben. 
Block in Block ist nicht möglich. 

Wrrte 

<W>: 

Block als ASCII-Text speichern (vgl. File - 
Wrrte) 

Print 

<P>: 

Block auf Drucker ausgeben (vgl. File -Print) 

Hide 

<H>: 

Block-Start- und Ende-Markierungen 
aufheben 

De/ete 


Block löschen. Um fatale ‘Schnellschüsse' zu 
vermeiden,gibt es hierfür keineTastenfunktion. 


‘Direct’ ■ Modus an: <f 4> oder <Ait>+<D> 

(s. DER DIREKT-MODUS) 
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•PgUp' 

Seite aufwärts blättern <FS> 

‘PgDn’ 

Seite abfwärts blättern <F6> 

‘Undo’ 

aktuelle Zeilenänderungen 

rückgängig machen <F7> oder <Alt>+<U> 

‘Insert’/ ‘Overwr’ 

Zeichen-Eingabe zwischen 
‘Einfüge’- (Insert) und 
‘Überschreib’-Modus 

(Overwrite) umschalten : <F8> oder <Alt>+<l> 

bzw. <Alt>+<0> 

‘View’ 

letzte Programmseite zeigen: <F9> oder <Alt>+<V> 

‘Run’ 

aktuelles Programm starten : <F 10> oder <Alt>+<R> 

‘Uhrzeit’ 

am rechten Rand finden Sie ein acht Zeichen langes Feld mit der 
aktuellen Uhrzeit. 

‘Pfeile’ 

Rechts neben der Uhrzeit finden Sie zwei Pfeile. Ein Klick auf den 
‘Abwärtspfeil’ bewirkt, daß der Cursor 'nach unten’ fährt und gfls. die 
Seite mitscrollt. Ein Klick auf den 'Aufwärtspfeil' bewirkt ein 
Seitenscrolling 'nach unten'. 

Fußzeile ganz links; 

ln der Fußzeile erscheint jeweils die Nummer der Programmzeile 
und die Spaltenposition, auf welcher sich der Cursor momentan 
befindet. Rechts daneben ist der aktuell eingestellte Dateipfad 
jederzeit sichtbar. 
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1.4. TASTATUR - FUNKTIONEN 


Da es im PC-Bereich zwei Tastaturen gibt (sog. XT- und AT- 
Tastatur), deren Tasten unterschiedlich beschriftet sind, werden 
sie hier auch unterschiedliche Tastenbezeichnungen finden. Die 
AT-Tastatur erkennen Sie dabei an der Umrandung. 

Cursor- und zeilenbezogene Funktionen: 


Cursor nach rechts 
Cursor nach links 
Cursor an den Zeilenanfang 
Cursor an das Zeilenende 
Cursor auf Tabulator rechts 
Cursor auf Tabulator links 

Cursor eine Zeile hoch 
Cursor eine Zeile runter 

Cursor beliebig positionieren : 

Cursor eine Seite rückwärts : 

Cursor eine Seite vorwärts 

Cursor an Programmanfang 


<Rechts-Pfeil 
<Links-Pfeil> 


[<Posl>] bzw. <Home> 

[<Ende>] bzw. <End> 
<Tab> 

f <Strg>+<Tab>] bzw. 
<Ctrl>+<Tab> 

< Aufwärts-Pfei I > 

<Abwärts-Pfeil> 
oder <Return> 

Maus-Linksklick auf 
gewünschte Position 

[ <Bild-hocha^ bzw. <Pg up> 

oder<F5>_ 

oder (<Strg>+<R> ] 
bzw. <Ctri>+<R> 
oder Klick auf “PgUp" 

[ *®ild-runter3bzw.<Pgdown> 

oder <F6>_ 

oder [<Strg>+<C> ] 
bzw. <Ctrl>+<C> 
oder Klick auf “PgDn“ 

(<Strg>+<Posl>] 
bzw. <Ctrl>+<Home> 
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Tastatur-Funktionen 


Cursor an das Programmende: <Strg>-«-<Ende> ] 



bzw. <Ctrl>+<End> 
oder[<Strg>+<Z> J 
bzw. <Ctrl>+<Z> 

aktuelle Änderung löschen 
(UNDO-Funktion) 

<Alt>+<U> 

oder <Alt>+<Backspace> 
oder <F7> 

Leerzeile einfügen 

f <Einfg>]bzw. <lns> 
oder f<Strg>+<N>] 
bzw. <Ctrl>+<N> 

Zeichen links löschen 

<Backspace> 

Zeichen unter Cursor löschen: 

Zeilenrest ab Cursorposition : 
löschen und in Sequenz-Puffer 
laden 

(<Entf>']bzw. <Del> 

[ <Strg>+<P>] 
bzw. <Ctrl>+<P> 

Zeilensequenz aus Puffer an : 
akt. Cursorposition einfügen 

[ <Strg>+ <0>] 
bzw. <Ctrl>+ <0> 

aktuelle Cursorzeile löschen : 
und in Zeilenpuffer laden 

[ <Strg>+<Entf>) 
bzw. <Ctri>+<Del> 
oder [<Strg>+<Y> ] 
bzw. <Ctri>+<Y> 

Pufferzeile (<Strg><Y>) an 
akt. Cursorposition einfügen 

[ <Strg>+ <U>] 
bzw. <Ctrl>+ <U> 
oder (<Alt>+<Einfg>] 
bzw. <Ält>+<lns> 

Zeilensprung 

[ <Strg>+<G>] 
bzw. <Ctrl>+<G> 


Weitere Tastatur-Kommandos : 


Block-Anfang definieren [ <Strg>+<B>] 

bzw. <Ctrl>-KB > 
odei(<Strg>+<K?dann <B> 
bzw. <Ctri>+<K> dann <B> 
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Block-Ende definieren 

[<Strg>+<K>] 
dann <K> 
bzw. <Ctri>+<K> 
dann <K> 

letzten Ausdruck ab Cursor¬ 

[<Strg>+<F>] 

position finden 

bzw. <Ctrl>+<F> 

letzten Ausdruck ab Cursor¬ 

[<Strg>+<E>] 

position finden und ersetzen 

bzw. <Ctrl>+<E> 

Editor-Zeilenmarken seuen 

[<Strg>+<FI>l 

bis 

[<Strg>+<F6> ] 

DW. 

<Ctrl>+<FI> 

bis 

<Ctrl>+<F6> 


Es können durch (<Strg>ibzw. <Ctrl> und die 
Funktionstasten FI bis r6 bis zu sechs unsichtbare 
Marken im Editor auf beliebige Programmzeilen 
(jeweils die aktuelle Cursorzeile) gesetzt werden. 

Editor-Zeilenmarken anspringen <Alt>+<F I > 

bis 

<Alt>+<F6> 


Es kann die durch die jeweilige Funktionstaste 
markierte Zeile angesprungen werde n, falls die hier 
aufgerufene Markierungvorher durch ^Strg>+<Fx>j 
bzw. <Ctrl>+<Fx> vergeben worden ist. 


Cursor an die Position vor dem <Alt>+<F7> 

letzten Programmstart, bzw. vor 
dem letzten 'D/rect’-Aufruf setzen 

Cursor an Error-Position setzen <Alt>+<F8> 

Wurde das Programm durch einen Error unterbro¬ 
chen, so wird - falls möglich - eine Zeilenmarke auf 
die zum Abbruch führende Zeile gesetzt. Diese Zeile 
kann gfls. durch <Alt>+<F8> aufgerufen werden. 

Cursor an Position vor dem 

letzten Such-Start setzen <Alt>+<F9> 
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Cursor an die Position der 

letzten Programm-Änderung setzen: <Alt>+<F 10> 

Einzelne PROCEDURE oder 
FUNCTION ein- und ausklappen 
(Folding/Unfolding) 

Cursor auf PROCEDURE- bzw. FUNCTION- 
Kopfzeile positio nieren, dann <Alt>+<Q> (bzw. bei 
AT’s auch (<FI l>) drücken. Die Kopfzeile wird durch 
‘>‘ gekennzeichnet und der Prozedur-Rest verschwin¬ 
det. Die ‘>’-Kennzeichnung bleibt auch beim Spei¬ 
chern durch 'Save’ oder Wr/te’ im Programm-File 
erhalten und wird beim Laden durch 'Load' oder 
'Marge’ erkannt sodaß danach wieder nur die 
Kopfzeile erscheint. 

Durch erneutes <Alt>+<Q> (bzw(<F 11 in der 
Kopfzeile einer eingeklappten Prozedur - bw. indem 
man das ‘»'-Zeichen am Zeilenanfang löscht - wird 
diese wieder sichtbar. 

Alle PROCEDURE’s und FUNCTION’s 
ein- und ausklappen (Folding/Unfolding): 

Cursor auf PROCEDURE- bzw. FUNCTION- 
Kopfzeile position ieren, dann <Alt>+<W> (bzw. bei 
AT’s auch (<FI2>] | drücken. Die Kopfzeilen aller 
folgenden Prozeduren und Funktionen werden durch 
*>’ gekennzeichnet und die Prozedur-Listings 
verschwinden. Die‘>’-Kennzeichnungen bleiben auch 
beim Speichern durch 'Save’ oder Wrfte’ im 
Programm-File erhalten und werden beim Laden 
durch 'Load’ oder 'Marge’ erkannt sodaß danach 
wieder nur die Kopfzeilen erscheinen. 

Durch erneutes <Alt>+<W> (bzw|<F 12>]) in der 
Kopfzeile einer eingeklappten Prozedur wird diese 
und alle darauffolgenden wieder sichtbar. 

Fils -MöriÜ öffnen <Alt>+<F> 

Block-MßnÜ öffnen <Alt>+<S> 

‘Search’-Menü öffnen <Ait>+<s> 

'DireCt'-Modus aufrufen <Alt>+<D> 

Undo -Funktion aufrufen <Alt>+<U> 
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‘Overwrite/Insert’ umschaiten 


'View' - letzte Programmseite 
betrachten 


<Alt>+<0> 
bzw. <Alt>+<l> 


<Alt>+<V> 


Run - Programm starten 


<Alt>+<R> 


Erweitertes ‘Block’-Menü öffnen 


<Strg>+<K>] 
bzw. <Ctrl>+<K> 
oder <Alt>+<B> 


Es erscheint ein ein Block-Menü mit weiteren Optionen. 
Bis auf zwei Besonderheiten sind die Block-Optionen 
'Block Start’ bis 'Block-Move’ mit den unter‘DAS EDITOR¬ 
MENÜ' beschriebenen Optionen identisch. Die erste 
Besonderheit besteht darin, daß hier für die Delete- 
Option zusätzlich die Tastenfunktion <Y> verfügbar ist 
und die zweite darin, daß das Block-Read' im Gegensatz 
zum normalen 'Merge' .Blockmarken um den neu gelade¬ 
nen Programmblock legt. 

Die Optionen 'Sove GFA’, 'Quit GFA’ und 'Sqve & Quit' 
sprechen für sich (vgl.‘DAS EDITOR-MENÜ’ unter‘File’). 

Zusätzlich hat man hier noch die Möglichkeit, über die 
Tasten < I > bis <6> Zeilenmarken zu seaen. 


Optionen-Menü öffnen (<Strg>+<Q>] 

bzw. <Ctrl>+<Q> 


Es erscheint ein Menü mit weiteren Editor- Optionen: 


Find 


Exchange 


Kill to EOL 


Output to EOL 


sucht nächste n Ausdruck (wie 

[<Strg>+<F>j) 

ersetzt den näc hsten gefunde nen 
Ausdruck (wie ^Strg>+<E>) 

löscht aktuellen Zeilenrest (to 
EndOfUne) und lädt ihn in den 
Sequenzpuffer (wie fcStrg>-KP>) 

fügt den Sequenzpuffer-Inhalt ab 
aktueller Cursorposit ion in die Zeile 
ein (wie feStrg>-*-<0^ 
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Restore Line 
Goto Block Start : 
Goto Block End : 
Goto Mark 0 
Goto Mark 9 


restauriert die Zeile und löscht die 
bisherigen Änderungen (wie <F7>) 
setzt den Cursor auf den 
aktuellen Blockanfang 
setzt den Cursor auf das aktuelle 
Blockende 

setzt den Cursor an die jeweilige - 
falls vorhandene - Zeilenmarke. Die 
jeweils markierten Zeilennummern 
sind angegeben.(wie <Alt>+<Fx>) 
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1.5. DER DIREKT-MODUS 

Es ist möglich, fast jeden GFA-BASIC-Befehl im Direkt-Modus 
einzugeben. In diesen Modus gelangen Sie, indem Sie im Editor- 
Menü das ‘D/rect’-Feld mit der Maus anklicken oder die 
Tastenkombination <Alt><D> drücken. Es erscheint dann der 
beim letzten Programm-Ende oder -Abbruch ‘hinterlassene’ Bild¬ 
schirm und es können in einer direktinterpretierenden Komman¬ 
do-Eingabezeile die verschiedenen Befehle eingegeben werden. 
Die Verwendung von Schleifen- und GOTO-Anweisungen, 
PROCEDURE-Definitionen, Bedingungsabfragen und ähnlicher 
Strukturbefehle sind im Direkt-Modus jedoch nicht möglich,da sie 
sich auf die Programmstruktur beziehen, die ja im Direkt-Modus 
nicht verfügbar ist. 

Die Rückkehr aus dem Direkt-Modus zum Editor erfolgt wahlweise 
mit <Return> innerhalb einer Leerzeile oder der Eingabe des 
EDIT-Befehls, gefolgt von <Return>. 

GFA-BASIC bietet die Möglichkeit, eigene Editor-Erweiterungen 
zu schreiben (z.B. Datei-KILL oder Datei-LIST) und diese aus dem 
Direkt-Modus heraus aufzurufen,da der Befehl GOSUB auch hier 
funktioniert und somit eine Prozedur, die sich im aktuellen Pro¬ 
gramm befindet - vorausgesetzt, die Syntax ist in Ordnung - 
aufgerufen werden kann. 

Im Direktmodus des GFA BASIC ist ein sogenannter ‘History’- 
Modus eingebaut der es erlaubt sich durch Betätigung der <Pfeil- 
hoch>- bzw.<Pfeil-runter>-Cursortaste die letzten acht direkt 
eingegeben Befehlszeilen anzeigen zu lassen. Die angezeigte Zeile 
kann dann neu editiert und/oder durch <Return> wieder gestar¬ 
tet werden.Außerdem kann durch <Einfg> bzw. <lns> zwischen 
dem 'EJnfiige - und ‘Überschreib’-Modus gewechselt werden. 
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1.6. DIE ERSTEN SCHRITTE 


Wie bereits einführend angedeutet wurde, richtet sich dieses 
Buch in erster Linie an BASIC- oder auch bisherige PASCAL- 
Programmierer, die schon mit den grundlegenden allgemeinen 
Verfahrensweisen bei der Erstellung von Programmen 
einigermassen vertraut sind. 

Trotzdem möchte ich hierauch Neulingen die Möglichkeit geben, 
wenigstens die allerersten Schritte zu ihrem ersten - oder auch 
zweiten - Computerprogramm zu ermöglichen. Die'gelangweilten’ 
Halb- und Vollprofis mögen mir verzeihen - ich werde mich kurz 
fassen. 

Ich setze hier jedoch schon das Wissen darüber voraus, wie ein 
Programm von der MSDOS-Kommandoebene oder einer sonsti¬ 
gen Bedieneroberfläche aus gestartet wird. Dieses tun Sie nun mit 
Ihrem GFA-BASIC. Es erscheint sodann der im Kapitel ‘DER 
EDITOR’ beschriebene Bildschirm mit dem Editor-Menü am obe¬ 
ren Rand. Der Text-Cursor (ein kleiner, blinkender Unterstrich, 
der die aktuelleTexteingabe-Position markiert) steht in der linken, 
oberen Ecke des noch freien Editorfeldes und Sie können nun 
sofort mit der Programmeingabe beginnen. 

Hier werden schon einige der erfahrenen Programmierer stutzen: 
"Was? Mehr muß ich nicht tun?? So einfach ist dos.i’.?’- Ja, genau so 
einfach ist das! Im Gegensatz zu vielen anderen Programmierspra¬ 
chen und Dialekten müssen Sie sich in GFA-BASIC normalerweise 
nicht um globale Deklarationen, Includes oder sonstige schwerfäl¬ 
lige Verwaltungsakte kümmern, GFA-BASIC erledigt das für Sie. 
Die allererste Programmzeile, die ein angehendes Programmier- 
Genie in (fast) allen Programmiersprachen möglichst widerspruchs¬ 
los zu absolvieren hat ist: 

PRINT "hello World'' 

Nachdem diese Zeile oben links in Ihrem GFA-Editor prangt 
klicken Sie im Editor-Menü ‘Run' an oder drücken die 
Tastenkombination<Alt><R>.DerGFA-BASIC-lnterpreter schal¬ 
tet nun auf einen anderen Bildschirm - Ihren Programm-Bildschirm 
- um und gibt oben links den Satz “hello worid” aus. Anschließend 
erscheint eine kleine Alert-Box, die Sie darauf hinweist daß das 
Programm beendet ist Wenn Sie nun die <Return>-Taste drük- 
ken oder den Return'-Button der Box mit der Maus anklicken, 
kehrt GFA-BASIC in den Programm-Editor zurück, wo weitere 
große Herausforderungen und Abenteuer auf Sie warten. Das ist 
wie eine Äquatortaufe für Programmierer. Ab diesem Zeitpunkt 
gehören Sie 'dazu . Der erste Schritt ist getan - es kann nur noch 
aufwärts gehen!! 


HotSpot 



34 




Die ersten Schritte 


Eigentlich könnte hier die Einführung enden - wenn da nicht ein 
kleines Problem wäre: es gibt tatsächlich noch mehr Befehle, die 
alle dringlichst darauf harren, eingehend untersucht zu werden. 
Dies kann natürlich nicht in einer Einführung geleistet werden, 
dazu gibt es ja den großen Befehlsteil hier im Buch. 

Wir erweitern hier das obige Progrämmchen um zwei Zeilen. 
Dazu fahren Sie mit dem Cursor (Sie wissen schon: dem klei¬ 
nen blinkenden Strich) in die eben geschriebene Programmzeile 
(<Aufwärts-Pfeil> drücken) und drücken dann die <Einfg>- 
bzw. <lns>-Taste. Die PRINT-Zeile rutscht nun um eine Zeile 
abwärts und darüber entsteht eine Leerzeile. In diese Leerzeile 
geben Sie nun ein: 

FOR TO 10 

Um die Zeile abzuschliessen, drücken Sie nun die <Return>- 
Taste. Wenn Sie die Zeile richtig eingegeben haben, springt der 
Cursor an den Anfang der nächsten Zeile,die dann leer ist, weil die 
PRINT-Zeile erneut um eine Zeile abwäru rutscht. Sie könnten 
nun in diese Leerzeile weiteren Programmtext eingeben. Das 
möchten wir aber in diesem Fall nicht, sondern die PRINT-Zeile 
soll die zweite Zeile bleiben. Daß sie nun in Zeile drei steht und 
Zeile zwei leer ist, soll uns hier nicht weiter kümmern. Das ist ein 
kosmetisches Problem. Den Interpreter kümmert’s auch nicht,er 
ignoriert leere Zeilen einfach. Falls Sie es doch für notwendig 
halten, die leere Zeile zu entfernen, drücken Sie nun - sofern der 
Cursor noch in der leeren zweiten Zeile steht - die Kombination 
<Strg><Entf> bzw. <Ctrl><Del>. Die PRINT-Zeile rutscht nun 
eine Zeile aufwärts und die Leerzeile verschwindet. Damit wäre 
die optische Ordnung wieder hergestellt. 

Nun steht der Cursor immer noch in der zweiten Zeile. Drücken 
Sie nun einmal die <Abwärts-Pfeil>-Taste, um ihn in der dritten 
Zeile zu positionieren. Ist er in der dritten Zeile? Gut, geben Sie 
nun folgende Zeile ein: 

NEXT i* 

Ihr Programm müßte nun so aussehen: 

FOR i%=l TO 10 

PRINT ' 'hello World" 

NEXT 

Wenn Sie nun ‘Run’ anklicken oder <Alt><R> drücken, wird das 
Programm nun zehn mal - oben in der ersten Zeile beginnend - 
“hello World" untereinander schreiben. Die dann folgenden 
‘Programmende’-Box kennen Sie ja schon. 

Damit haben Sie bereits eine sogenannte ‘Schleifenkonstruktion’ 
kennengelernt. Die beiden Zeilen 'FOR i%=l To 10' und 'next 
i%' bilden eine Einheit und bewirken, daß alle Programmzeilen, 
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die zwischen diesen beiden Anweisungen stehen, so oft ausge¬ 
führt werden, wie in der Eingangsanweisung‘FOR...’ angegeben 
wurde - hier also ‘ I TO 10’ = zehn Mal. 

Würden Sie versuchen, eine FOR-Anweisung ohne die dazugehö¬ 
rige N EXT-Anweisung (das Schleifenende bzw. der Wendepunkt) 
zu starten,so würde GFA-BASIC Sie auf diesesVersäumnis hinwei- 
sen. 

Eine Schleifenkonstruktion kann auch so aussehen: 

DO 

PRINT ' 'hello World'' 

LOOP 

Die vorherige FOR-Schleife wird als eine ‘Zählschleife’ bezeichnet, 
da sie implizit einen Zählvorgang durchführt und die Schleife 
beendet, sobald der angegebene Endwert erreicht ist. Die 
DO...LOOP-Schleife dagegen ist eine sogenannte'Endlos-Schleife’, 
die eigentlich nie verlassen wird. Es sei denn, daß explizit eine 
Abbruchbedingung gestellt wird. Das kann folgendermaßen er¬ 
reicht werden: 


DO 

PRINT ''hello World'' 
a$=INKEY$ 

EXIT IF LEN(a$) 

LOOP 

Das Programm schreibt nun solange “hello worid”, bis eine 
beliebige Taste gedrückt wird. Der Befehl INKEY$ stellt fest, ob 
eine Taste gedrückt wird, ohne daß er dabei das Programm 
unterbricht. Wurde eine Taste gedrückt, wird in der ‘String’- 
Variablen‘a$’ ein Text-String geliefert, der dem Code dergedrück- 
tenTaste entspricht.Wird läineTaste gedrückt,wird von INKEY$ 
einfach 'Nichts' zurückgegeben. Die Funktion LEN() überprüft in 
der EXIT IF-Zeile, ob der von INKEY$ gelieferte String in ‘a$‘ 
überhaupt eine Länge aufweist. Ist das der Fall,so wurde eineTaste 
gedrückt und die EXIT IF-Bedingungsabfrage wird gültig,sodaß das 
Programm hinter der LOOP-Zeile fortgesetzt wird. Da sich in 
diesem Fall dort kein weiterer Programmtext befindet, wird das 
Programm beendet. Kann man auf den Code der gfls. gedrückten 
Taste verzichten, so läßt sich die Konstruktion auch verkürzen, 
indem die gesamte Abfrage nur in der EXIT IF-Zeile stattfindet: 

EXIT IF LEN(INKEY$) 

Es gibt noch einige Schleifenkonstruktionen mehr, wobei es auch 
teilweise möglich ist, diese miteinander zu kombinieren. 

Anschließend will ich Ihnen noch zeigen, was eine sogenannte 
'Prozedur' (gfls.‘Routine’,‘Unterprogramm’ oder unter Umständen 
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auch ‘Mcxlur genannt) ist. Eine Prozedur ist eine abgeschlossene 
'Struktur’ innerhalb des Gesamtprogramms oder einer anderen 
'Routine’. Ein solches 'Unterprogramm' erledigt im allgemeinen 
Aufgaben, die immer wiederkehren und die - anstatt sie jedesmal 
neu zu schreiben - in einer Prozedur einmalig definiert werden und 
dort nötigenfalls durch einen Prozeduraufruf von einer beliebigen 
Programmstelle aus aufgerufen, also zu ihrer Tätigkeit veranlasst 
werden: 

SCREEN 18 // VGA-Grafik, geht auch in 

REPEAT // CGA oder HGC 

xpSi=RAND(_X-100)+50 // horiz. Parameter berechnen 

ypSr=:RAND (_Y-1001+50 // vert. Parameter berechnen 

lines(xpi,yp4,RAND(50)+30,RAND(50)+30) 

// Aufruf m. Parametern 
QNTIL MOÜSEK or LEN(INKEY$) 

// Abbruch bei belieb. Taste 


PROCEDÜRE lines{x%,y%,rx%,ry%) 

// Prozedurkopf mit Parameter 
FOR ii=0 TO 359 STEP 20//Schleifen-Start (in Grad) 
LINE x%+C0SQ li&) *rx*,y%,x%,y%+SINQ( i£r) *ry% 

// Linie zeichnen 

NEXT i& // Schleifen-Wendepunkt 

RETURN // Rücksprung z. Hauptprogr. 

Sollten Sie zu den einzelnen Befehlen und Funktionen (in 
Großschrift), sowie den Variablen (in Kleinschrift) Fragen haben, 
schauen Sie bitte unter der entsprechenden Befehls-/ 
Funktionsbeschreibung, sowie im Kapitel ‘VARIABLEN-TYPEN’ 
nach. Diese kleine Eigenleistung bewirkt einen größeren Lerneffekt, 
als wenn ich nun dieses Programm hier in seinen Feinheiten 
beschreiben würde (wie sagt man so schön:‘nur selber essen macht 
satt). 

Diese kleine Prozedur prozudiert ...äh...produziert - wie sollte es 
bei dieser Gelegenheit auch anders sein - ein grafisches Spiegelei 
...???...äh... 'tschuldigung, eine grafische Spielerei meine ich natür¬ 
lich. Solche Demo-Routinen sind deshalb sehr begehrt, weil sie 
extrem kurz gehalten werden können und auch kein tieferer Sinn 
dahinter stecken muß.Weitschweifende Erklärungen über Zweck 
und Nutzen erübrigen sich auch. Leider scheint es in der Compu¬ 
ter-Literatur - bis auf einige positive Ausnahmen - üblich zu 
werden, weitgehend sinnlose Demo-Routinen dieser Art zu 
’verwursten’. Schauen Sie sich bitte unser in 5/92 erscheinendes 
COUD-’PREMIUM-Buch zum GFA BASIC für MSDOS’ an. Dieses 
Buch steckt prallvoll mit nützlichen und allgemein definierten 
Hilfs-,Arbeits- und Trickroutinen (zwei inliegende Disketten), die 
Ihnen die Programmierarbeit ganz erheblich erleichtern können. 

Sie haben im Laufe dieser Einführung nun schon einige Variabien- 
Zuweisungen kennengelernt; 


HotSpot (§|§) 





Die ersten Schritte 




a$=INKEY$ 


oder: 


xp4=RAND(_X-100)+50 

Die Zuweisung von Werten, Ausdrücken,Texten oder sonstigen 
wichtigen Daten zu den verschiedenen Variablentypen nimmt 
einen erheblichen Raum in jedem Computerprogramm ein. Man 
kann sogar sagen, je mehr das Programm allgemein verfügbare 
Variablen enthält umso mehr und leichter kann das Programm 
gesteuert werden.Jede ‘g/oba/e’Variable ist eine 'Schnittstelle' zum 
Programm,d.h.,daß es hierüber möglich ist'lnformations-Leitun- 
gen’ aus dem Programm herauszuführen und dem Anwender zur 
Verfügung zu stellen. 

Das weiter oben aufgeführte Demo-Programm ‘lines’ soll hier als 
Beispiel dienen: 

Der Prozedur-Kopf ‘PROCEDURE lines’ enthält die 
Aufnahme-Variablen für die horizontale Mitte (x%),die 
vertikale Mitte (y%), sowie für den horizontalen (rx%) 
und vertikalen (yr%) Radius der Grafik. Wie unschwer 
zu erkennen ist wird als Gradeinteilung der volle Kreis 
(FOR i&=OTO 359) und als Schrittweite der Wert 20 
(STEP 20) verwendet. Ändert man an dieser Routine 
nichts, so wird die Grafik immer im vollen Umkreis 

mit 20-Grad-Schritten gezeichnet 

Durch eine einfache Umstellung des Programms ist es 
nun möglich, dem Aufrufer der Routine (in diesem Fall 
ja Sie selbst) drei weitere Einstellungsmöglichkeiten 
anzubieten.VVenn nämlich stat der drei fest vorgegebe¬ 
nen Werte ‘0’, ‘359’ und ‘20’ ebenfalls Variablen einge¬ 
setzt würden, so könnte man diese in der Kopfzeile 
der Prozedur zusätzlich als Parameter-Aufnahmevariable 
aufführen: 

PROCEDÜRE 1 ines(x?,yl,rx%,ry%,begS,endi,schrittü) 
FOR i&=beg4 TO end& STEP schritti 

LINE x%+C0SQ(i&)*rx%,yl,x%,y%+SINQ(i&)’ryl 
NEXT i& 

RETURN 

Rufen Sie nun diese Prozedur z.B. folgendermaßen auf: 

lines(xp&,yp&,RAND(50)+30,RAND(501+30,90,179,3) 

SO werden Sie eine Änderung in der Ausführung 
feststellen. 

Bedenken Sie generell diese global gedachte Definition von Daten 
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innerhalb Ihrer eigenen Programme so konsequent wie möglich. 
Nach einiger Erfahrung werden Sie sich wundern, wie komplex, 
vielfältig und professionell Sie Ihre - anfänglich auch noch so 
kleinen - Programme ausarbeiten können, ohne das Rad jedesmal 
neu erfinden zu müssen. Außerdem haben Sie - sofern Sie diese 
Technik anwenden und perfektionieren wollen - in der 
Endkonsequenz schon einen großen Schritt in Richtung ‘OOP’ 
(objektorientierte Programmierung) getan. Wer in der heutigen 
Zeit moderne Programme entwickeln und nicht als EDV- 
Dinosaurier abgetan werden will,der wird nicht um diese spezielle 
Art der Programmtechnik herumkommen. Wenn Sie 'normal 
geradeaus' programmieren möchten, so vergessen Sie das eben 
gesagte. Hauptsache, Ihnen bringt das Programmieren Spaß und 
den gewünschten Erfolg. 

Übrigens: 

Die horizontale Ausdehnung auf einem Bildschirm wird in 
der Computerei auch die 'X’-Dimension oder 'X’-Richtung 
genannt Sie verläuft waagerecht von links nach rechts: von 
Null bis zur Bildschirmbreite in Pixel. Der Begriff’pixel' 
stammt aus dem englischen und bedeutet soviel wie 
‘Bildelement’ (picture-element). Die vertikale Ausdehnung 
(in GFA BASIC unter MSDOS von oben nach unten 
verlaufend: von Null bis zur Bildschirmhöhe in Pixel) ist 
dagegen die T-Dimension oder auch T-Richtung. Es gibt 
allerdings auch Flächenorientierungssysteme, die den Bild¬ 
schirm von unten nach oben einteilen, worum Sie sich in 
GFA BASIC unter MSDOS allerdings nicht weiter zu 
kümmern brauchen. 

So, das waren die allerersten Schritte, bei denen ich in der 
gegebenen Kürze versucht habe. Ihnen das Händchen zu halten. 
Weitere Erfolgserlebnisse stehen noch vor Ihnen, wenn Sie nun 
versuchen, den Sinn und die Arbeitsweise der verschiedensten 
Befehle des GFA-BASIC zu ergründen. Dabei werden auch Sie 
nicht vor einem unangenehmen Vorgang gefeit sein, den man 
erfrischend und einfach ‘Absturz’ nennt. Damit ist ein Zustand 
gemeint, bei dem der Computer aus vielerlei Gründen (oderauch 
nicht, keiner weiß das immer so ganz genau) komplett seinen 
Dienst quittiert und Sie damit nachhaltig zum Drücken der Reset- 
Taste animiert Computer sind auch nur Menschen. Lassen Sie sich 
davon nicht beirren - nur dem Geduldigen und Fleißigen blüht der 
Erfolg. Sichern Sie immer wieder rechtzeitig Ihre Programme auf 
Diskette oder Festplatte, das erspart Ihnen bei einem Absturz 
viele, viele nervenaufreibende Reparaturarbeiten am Programm. 
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1.7. VARIABLEN-TYPEN 


variable=8Byte-IEEE-Realwert 

Variablennamen ohne Kennung brw. mit der Kennung *#’ 
(z.B.iVar#) werden ‘Fließkomma’- Variablen (auch ‘Real’- 
Variablen) genannt. DieserVariablentyp benötigt zu seiner 
Speicherung im lEEE-Double-Format 8 Byte Speicherplatz. 
Im Dezimalbereich (Nachkommastellen) kann so eine 
Genauigkeit von bis zu maximal 13 Stellen eingehalten 
werden. Nimmt der ganzzahlige Anteil mehr als 13 Stellen 
ein, wird der Variablenwert in das Exponentialformat 
konvertiert. In diesem Format können dann Werte mit 
einem ganzzahligen Anteil von bis zu 308 Stellen erfaßt 
werden Als größter darstellbarerWert gilt 1.67E+308 und 
als kleinster Wert 2.2E-308. 

Wurde durch DEFxxx (DEFBIT.DEFBYT etc.) kein ande- 
resVariablenformat eingestellt,sowirdjederVariablenname, 
der innerhalb des Programms ohne Kennung eingegeben 
wird, als eine Realvariable angesehen. 

variable&=2Byte-lntegerwert 

Variablennamen mit dem Postfix (z.B.:Var&) gelten als 
2 Byte-Integer-Variablen (‘Word-Integer’). Jeder diesem 
Variablentyp zugeordneteWertwird aufseinen ganzzahligen 
Anteil reduziertD.h., evtl.auftretenden Nachkommastellen 
werden ‘integriert’. Zu seiner Speicherung benötigt dieser 
Typ 2 Byte Speicherplatz. Es können Werte im Bereich von 
-32768 (= -2'^ 15) bis zu +32767 (= 2'' 15-1) verarbeitet 
werden. Werte außerhalb dieses Bereichs werden mit 
einer‘Überlauf-Meldung moniert. 

variable%=4Byte-lntegerwert 

Variablennamen mit dem Postfix(z.B.:Var%) werden als 
4-Byte-lnteger-Variablen (‘Long-Integef) interpretiertWie 
bei der Word-Integer-Variablen werden auch hier die 
zugeordneten Werte auf ihren ganzzahligen Anteil redu¬ 
ziert. Evtl, auftretende Nachkommastellen werden also 
ebenfalls ‘integriert’. Zu seiner Speicherung benötigt 
dieser Typ 4 Byte Speicherplatz. Es können Werte im 
Bereich von -2147483648 (= -2''3I) bis +2147483647 
(= 2''31 -1) verarbeitet werden. Werte außerhalb dieses 
Bereichs werden mit einer ‘Überlauf-Meldung moniert. 
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variable|= I Byte-Integerwert 

Variablennamen mit der Kennung ‘|’ (z.B.Var|) gelten als 
vorzeichenlose I -Byte-Integer-Variablen. Auch bei diesem 
Typ werden zugeordnete Werte ihres Nachkomma-An- 
teils entledigt. Zu seiner Speicherung wird für diesen 
Variablentyp I Byte Speicherplatz benötigt. Es können nur 
positive Ganzzahlwerte im Bereich von 0 bis 255 hiermit 
verarbeitet werden. Werte außerhalb dieses Bereichs 
werden auch hier als Überlauf angesehen. 

variable'.=WahrheitswertTRUE (-1) oder FALSE (0) 

Variablennamen mit der Kennung'!’ (z.B.Var!) sind soge¬ 
nannte 'Bool' - Variablen. Dieser Variablentyp kann aus¬ 
schließlich die Werte 0 (= FALSE) oder -1 (<> 0 =TRUE) 
annehmen. Es werden zu seiner Speicherung als 
Einzelvariable 2 Byte benötigt. Im Gegensatz zu anderen 
Typen hat diese Variable innerhalb von Feldern jedoch 
einen anderen Speicherbedarf als den einer Einzelvariablen. 
Als Feld-Variable benötigt sie nur I Bit (!) je Element. 

variable$=”Text” 

Variablennamen mit der Kennung‘$’ (z.B.Var$) werden als 
Text-Variablen (sog.‘String*-Variablen) interpretiert. Eine 
Variable dieses Typs kann bis zu 32767Textzeichen (I Byte 
je Zeichen) aufnehmen. 

Für diesen Variablentyp wird innerhalb einer internen 
Zeiger-Tabelle jeweils ein String-Zeiger (‘Pointer’) von 4 
Byte eingerichtet, dessen Speicheradresse durch die 
Funktion ARRPTR() ermittelt werden kann: 

zeiger_adresse%=;ARRPTR(string$) 

In dieserTabelle befindet sich ein Longword-Zeigeraufden 
jeweiligen String- ’Descriptor* (String-’Beschreiber’). Die¬ 
ser Descriptor beginnt wiederum immer als sogenannter 
‘Header* (Kopf) 6 Bytes vor dem ersten Zeichen des 
dazugehörigen Textstrings: 

header_adresse%=LONG{ARRPTR(string$)} 

Die ersten 4 Bytes dieses Headers zeigen wiederum auf 
den dazugehörigen Platz innerhalb der beschriebenen 
internen Zeigertabelle: 

zeiger_adresse%=LONG{VARPTR(string$)-6} 
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Die Bytes 5 und 6 des Descriptors enthalten im CARD- 
Format (2Byte) die Länge des eigentlichen Textes. 

string_laenge4=CARD{VARPTR(string$)-2) 

oder 

string_laenge%=CARD{LONG{ARRPTR(string$))+4) 

Die Adresse des ersten Zeichens des eigentlichen Textes 
kann entweder durch die Funktion VARPTRQ 

string_adresse%=VARPTR{string$) 

oder durch Auslesen des Tabellenzeigers 

string_adresseS=LONG{ARRPTR(stringS)+6) 

ermittelt werden. 

Hat der String eine ungerade Länge, wird hinter das String- 
Ende ein - für das Programm unsichtbares - Füllbyte 
gesetzt, das gewährleisten soll, daß der Speicherbereich 
fürdie nächste Textvariable (bzw. deren Header) an einer 
geraden Adresse beginnt. 

Benötigter Speicherplatz: 

4 Byte Tabellenzeiger 
+ 6 Byte für Descriptor-Header 

+ I Füllbyte (gfls.) 

+ 'm' Bytes (‘m’ = Stringlänge) 

+ 'n' Bytes (‘n’ = Zeichenanzahl des Namens) 


11 +m+n Bytes 
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ARRPTROin 

= Tabelle || 


Longzeigsr 1 
Longzeiger 
...etc. 1 1 

+0 = ^ 
+4 = 

+6 = 

+6+n = 

Descriptor | 

Longzeiger 

2 Byte = Länge 
'n' Byte =Text 
gfls. Füllbyte 
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Vektoren und Matrizen 

Mit jedem derangeführtenVariablentypen lassen sich auch 
eindimensionale ‘Vektoren’ (auch: Arrays) oder 
mehrdimensionale ‘Felder* (auch: Matrizen) bilden ein 
Longword, das dann auf die Startadresse des ersten 
Elementes des Feldes zeigt 


ARRPTR0 = Descriptor (16 Byte lang) | 

+0 = 

2 Byte = Anzahl der Dimensionen 

+2 = 

2 Byte = Elementeanzahl Für Dim. 1 

+4 = 

2 Byte = gfls. Elementeanz. f. Dim. 2 

+5 = 

2 Byte = gfls. Elementeanz. f. Dim. 3 

+8 = 

2 Byte = gfls. Elementeanz. f.Dint 4 

+ 10 = 

2 Byte = gfls. Elementeanz. f. Dim. S 

+ 12= 

Longzeiger auf das 1 . Element 

+ 16 = 

gfls. nächster Feld-Descriptor 


... etc. wie oben 


In Bezug auf den Longzeiger bei Offset 12 unterscheiden 
sich die Descriptoren für Stringfelder von denen für nume¬ 
rische Felder. Bei Stringfeldem weist dieser Zeiger im 
Descriptor auf eine Tabelle, welche der Reihe nach in 


ft 
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jeweils 4 Byte die Zeiger auf die oben schon beschriebenen 
String-Header der einzelnen Elemente beinhaltet. 


ARRPTRO Descriptor (16 Byte lang) 


+ 12 = 

...der Aufbau eines Textfeld-Descriptors 
ist bis zum Offs« 12 mit dem eines 
numerischen Descriptors identisch (s.o.) 

Z] 

Longzeigsr auf Zeiger-Tabeile — 

■■ 


Zeiger-Tabelle 


Zeiger auf den Header des 1. Elements —■ 
gfls. Zeiger auf den Header des 2. Elements 
... ^s. weitere Zeiger 

1 

+ 0 = 
+4 = 
+6 = 
+6+n = 

String-Descriptor des 1. Text-Elements 

1 


Longzcigcr 

2 Byte = Länge 
'n' Byte =Text 
gfls. Füllbyte 



Die Adressen aller Variablen (auch von Feldvariablen- 
Elementen) lassen sich zusätzlich auch durch die Funktion 
VARPTRO ermitteln (z.B.: print varptr(a%(4,1)) ). 
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und Ausgabe-Befehle 
und Ausgabe-Befehle 
und Ausgab“-R«>f®h|e 
und Ausgab _ b |e 
und Ausgab fß ^ Je 
und Ausgabe^^r^fle 
und Ausgabe 'fehle 
und Ausgab ^^jphle 
und Ausgabv^l ^ ehle 
und Ausgab'^'^^hle 
und Ausgabw«H^\e 
und Ausgabe ,."elfTe 
und Ausgab ^ ß^hle 
und Ausgabt^l^rehle 
und Ausgab ^~^^e 
und Ausgab^^^^me 
und Ausgab^^^ehle 
und Ausgab " °-*-‘-^ e 
und Ausgab^JWWWe 
und Ausgabe^ K 
und Ausgab f \ PAhle 
und Ausgabe^b^hle 
und Ausgabe-Befehle 
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Ein- und Ausgabe-Befehle 
Ein- und Ausgabe-Befehle 
Ein ijnd Ausgab''-i^“f“i'le 
Ein-^ ' Ausgab _ p |e 
Ein- lusgab IB le le 

Ein -^musgab JBwewIe 
E'\n-^vnd Ausgab^^ic Je 
Ein Ausgab^^^eme 

Ein-^x^d Ausgab^^'Jehle 
Ein-HsJ Ausgab " ^ hle 
Ein f -1 Ausgabfw*ffehle 
Ein/^J Ausgabe-Jefehle 
E' '-*^•'0 Ausgabe-lrefehle 
^ ^ l Ausgabe-Befehle 


n-HsJ Ausgab " J eh 
n 1 Ausgabfw*ffeh 
Ausgabe-Jefeh 
rT-“ Ausgabe-lrefeh 
|h I ^ l Ausgabe-Befeh 
7 ^J Ausgab'^^eh 
Tr 'JCT Ausgab,fflWeh 
n f\\p j Ausgab^^jh 
n Ausgab^^’^’fh 

n * - -■ *^ usgab^^'^h 
n f^usgab^~Jeh 
O y ^ Ausgab^^^eh 
Ausgab leh 
n Ausgab 

n \\*^ Ausgab^WWff 
n-^'TO Ausgabe-Befeh 
n- Jid Ausgabe-Befeh 
n- (TTid Ausgabe-Befeh 
n- und Ausgabe-Befeh 
n- und Ausgabe-Befeh 
n- und Ausgabe-Befeh 
n- und Ausgabe-Befeh 
n- und Ausgabe-Befeh 
n- und Ausgabe-Befeh 
n- und Ausgabe-Befeh 
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Ein- und Ausgabe-Befehle 


2 . EIN-UNDAUSGABE-BEFEHLE 


2.1. DATEN - EINGABE 


FORM IN PUT Formatierte Stringeingabe 

FORM INPUT Anzahl,Var$ 


p Ermöglicht eine Stringeingabe mit vorgegebener Zeichen-’An- 
zahl'. Die Eingabe wird bei Erreichen der max. Zeichenanzahl 
nicht abgebrochen, sondern es ertönt ein Signalton und die 
Eingabe muß mit <Return> quittiert werden. Anschließend wird 
sie der Variablen yar$’ zugewiesen. Maximale Eingabelänge = 255 
Zeichen. 

Die Eingabe kann mit <Del>, <Backspace> (bzw. <-) und den vier 
Pfeil-Tasten editiert werden. Die Sonderzeichen-Eingabe erfolgt 
wie bei IN PUT. 


FORM INPUT AS Formatierte Stringeingabe m.Vorgabe * 

I 

FORM INPUT Anzahl AS Var$ , 


■ Gibt den Inhalt von‘VorS'an der aktuellen Cursor-Position aus und 
ermöglicht dessen erneute Edition. 

Der Parameter'Anzah/’gibt die Zahl der Zeichen von ‘VflrJ'(vom 
Anfang ausgehend) an, die ausgegeben werden sollen. Nach 
<Return> wird ‘VorJ’ komplett durch die Neueingabe ersetzt. 


INPUT {iNP} 

Dateneingabe 

INPUT ["Text";,] Var [,Var2,...] 
INPUT iKanal,Var [,Var2,...] 

1 



Das Programm wird unterbrochen und der Anwender zur 
Dateneingabe aufgefordert. Text’ ist eine beliebiger String (in 
Anführungsstrichen), der optional einen Eingabekommentar ent¬ 
hält.'Var'wird nach Eingabe-Abschluß die Eingabe zugewiesen. 
Das Trennzeichen zwischen Text' und ‘Vor’ be- stimmt die 
Position des Cursors im Anschluß an Text': 
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; Fragezeichen und Leerzeichen hinter dem Text 

, Eingabe beginnt direkt rechts neben dem Text 

Die Eingabe muß mit <Return> bestätigt werden. F*assen die 
eingegebenen Zeichen nicht zum Datentyp der angegebenen 
Variablen, ertönt ein akustisches Signal und die Eingabe muß 
wiederholt werden. 

Ein Komma in der Dateneingabe bewirkt nur Berücksichtigung des 
Teils vor dem Komma, bzw. eine Datentrennung, Falls auf den 
INPUT-Befehl mehrere, durch Kommata getrennte Variablen fol¬ 
gen. In diesem Falle können Daten auch durch <Return> getrennt 
werden. Sollen auch Kommas in die Eingabe mit einbezogen 
werden, sind diese in Anführungsstriche zu setzen und gesondert 
einer Variablen zuzuordnen. 

Bei Stringeingaben ist die Länge auf 255 Zeichen beschränkt Die 
Eingabe kann mit <Del>, <Backspace> und den vier Pfeil-Tasten 
korrigiert werden. 

Die Eingabe von Sonderzeichen über Tastatur kann folgenderma¬ 
ßen vorgenommen werden: 

<Alternate>-Taste gedrückt halten und über den 
Ziffernblock den ASCII-Wert des Zeichens eingeben. 
Nach Loslassen der <Alt>-Taste wird das Zeichen 
in die Eingabe übernommen. 

<Control> (bzw. <Strg>) und <S> Taste gleichzeitig 
drücken und wieder loslassen. Danach beliebige Taste 
drücken. 

<Control> (bzw. <Strg>) und <A> Taste gleichzeitig 
drücken und wieder loslassen. Danach beliebigen 
ASCII-Code eingeben. Zeichen mit einem ASCII-Wert 
zwischen 0 und 32 müssen nach Eingabe des Wertes mit 
<Retum> quittiert werden. 

Die zweite Syntaxform gibt in 'Kana/' die Datei an,aus welcher die 
Daten gelesen werden sollen. Die Variablen sind vom Typ her 
entsprechend den zu lesenden Daten anzugeben. 
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I Ein- und Ausgabe-Befehle 


INPUT$ 

Zeichenketteneingabe 

Var$=INPÜT$(Anzahl [,#Kanal]) 



P Das Programm wird unterbrochen und die unsichtbare Eingabe 
^ erwartet Mit ‘Anzahl’ wird eine maximale Eingabelänge angege¬ 
ben. Ein Quittieren mit <Return> ist nur notwendig, wenn die 
eingegebene Stringlänge die Längenvorgabe ‘Anzahl’ nicht er¬ 
reicht Die Edition der Eingabe kann - unsichtbar • erfolgen, wie 
unter IN PUT beschrieben. Der optionale Zusatz ‘#Kanal’ be¬ 
wirkt daß die angegebene Zeichenanzahl aus der Datei mit der 
Kanalnummer ‘Kanal’ gelesen wird. Der String kann maximal 
32767 Zeichen aufnehmen. 


LINE INPUT Zeichenketteneingabe 

LINE INPÜT [''Text" ;,] Var$ [Var2$, ... ] 

LINE INPUT #Kanal, Var$ [Var2$,...] 


Kommata werden in den einzugebenden Text mit aufgenommen. 
Bei Mehrfach-Eingaben können die einzelnen Strings nur durch 
Betätigung der <Retum>- Taste voneinander getrennt werden. 
Die Strings werden der (den) jeweiligen Variablen ‘Var$‘ zu¬ 
geordnet. Der optionale Zusatz Text' kann einen beliebigen 
Eingabe-Kommentar enthalten. Editionsmöglichkeiten wie bei 
INPUT. Die zweite Syntaxform liest die Daten aus der in ‘Kanal’ 
angegebenen Datei. 


2.2. DATEN-AUSGABE 


PRINT {foderP} 

Daten ausgeben 

PRINT [AT{S,Z)] ["Text"] 

[,;'] [Var] [AT(S,Z)]... 


... [,;'] [E>^r] [,;'] 


PRINT ohne Angabe von Daten, Texten oder Formatzeichen 
bewirkt eine Leerzeilenausgabe, die mit einem ’Carriage-Return' 
(CR: CHR$(I3)) und einem 'Une Feed’ (LF: CHR$(I0)) abge¬ 
schlossen wird. 

Formatierungszeichen zur Modifikation der Ausgabe; 
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; 'CR' und ‘LF werden unterdrückt, die folgende Ausgabe 
schließt sich an das letzte Zeichen der vorhergehenden 
PRINT-Ausgabe an. Ist die ausgegebene Zeile länger als 
80 Zeichen und WRAP ON ist aktiv, so tritt ein 
Zeilenüberlauf ein. 

, Die nächste Bildschirm-Ausgabe beginnt mit 

ihrem ersten Zeichen an der nächsten von fünf horizon 
talen Tabulatorpositionen (1,17,33,49,65). 

‘ An Stelle dieses Apostrophs wird ein Leerzeichen ausge 

geben. Sonst hat dieses Zeichen die gleiche Funktion 
, wie*;’. 

Durch AT(S,Z) kann der Cursor an einer bestimmten 
Bildschirmposition (Spalte,Zeile) plaziert werden. Der Startindex 
ist in beiden Dimensionen I (PRINTAT(l,l))Ar(0,0) ist identisch 
mitAT(80,25). 

Beispiele: 

PRINT X 
PRINT ' 'Text" 

PRINT AT(2,2); 

PRINT AT(CRSC0L,CRSLIN-4); 

PRINT AT(10,6) ;' 'Text' " " ' "Text' ' ,Var;Expr; 
PRINT Exprl,Expr2,Expr3 

PRINT (12*6+SCR(55.7)/2.31)«( (2''17) MOD 127-x) 

Beachten Sie bitte auch das Beispiel zu XLATESQ- 


PRINT USING { p USING} Daten formatiert ausgeben 

PRINT [AT(S,Z)] USING "Format" [Var...] 


I p In "Format" ist ein Formatstring zu übergeben, der die gewünsch- 
i ten Formatangaben enthält Entsprechend dieser Angaben werden 
die Texte und Werte zur Ausgabe vorbereitet und ausgegeben. 
Statt eines Textausdruckes kann auch eine Stringvariable überge¬ 
ben werden, die die Formatangaben enthält 

Folgende Formatsymbole sind möglich: 

# = Platzhalter für eine Ziffer 

z.B. PRINT USING " *##i#I " ,Int(31421/3) 

= Position des Dezimalpunktes 

z.B. PRINT USING t*.♦♦**", 31421/4 
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+ = Ausgabe auch des positiven Vorzeichens 

(nur an erster Position des Formatstrings). 

z.B. PRINT USING "+ i##*##.♦♦*#", 31421/4 

= Platzhalter für negatives Vorzeichen 

(nur an erster Position des Formatstrings). 

z.B. PRINT USING "31421/-4 

* = Füllzeichen für alle angegebenen Vorkommastellen, 

die nicht von dem auszugebenden Wert belegt wer 
den. Sonst wie #. 

z.B. PRINT USING "‘1####* 31421/1.4 

Hinter dem Dezimalpunkt verwendet, werden soviele 
* ausgegeben, wie angegeben sind und die aus 
zugebende Zahl wird real auf die gewünschte Stelle 
gerundet 

z.B. PRINT USING "*##*#*#.#****",31421/1.4 

$ = Voranstellung eines $ 

(nur direkt vor dem ersten #). 

z.B. PRINT USING "$######.##",31421/1.4 

, = Einfügen eines Kommas (Tausendertrennung) 

z.B. PRINT USING "##,###,###.##*",3422*2711.7 

'' = Ausgabe im Exponentialformat 

(nur ein Vorkomma-’#’ möglich). Führende # stehen 
hier für die Stellen des Basis- Anteils und ^ für die 
^ponentenstellen (E+xxxx). 

Überflüssige Basis-Stellen werden mit 0 gefüllt. 
z.B. PRINT USING "#.######♦*''''""", 13711 *64 

! = Das erste Zeichen eines Strings wird ausgegeben 

z.B. PRINT USIN3 'Msing !n IFA","Uhr", "ijkl", "Grün" 

4 = Gesamtstring wird ausgegeben 

z.B. PRINT USING "4-BASIC" , "GFA" 

\..\ = Ausgabe von sovielen Zeichen des Strings, wie Länge 

von \..\ (incl. Backslashs) 

z.B. PRINT USING "\...\ BASIC ?","Alles OK?" 

= (Tiefstrich) Interpretiert das hierauf folgende Using- 

Formatzeichen nicht als solches, sondern gibt es als 
ASCII-Zeichen aus. 

z.B. PRINT USING "Abc _### _\ 4",44,"XYZ" 

Zur ATfS^-Option s. unter PRINT AT(S,Z). 

Die Zahlendarstellung kann durch MODE variert werden. 
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PRINT ATXY { p ATXY } Daten positioniert ausgeben 

PRINT ATXY(S,Z) ["Text"] [Var] [AT(S,Z)]... 

... [,; ' ] [Expr] [,;'] 


Die Funktion dieses Befehls ist mit PRINT AT(S^) identisch. 
Weitere Beschreibung s. dort. 


PRINT ATYX { p ATYX } Daten positioniert ausgeben 

PRINT ATYX(S,Z) [,;'] ["Text"] [,;'] [Var] [AT(S,Z)]... 

... [,;'] [Expr] [,;'] 


' Die Funktion dieses Befehls ist mit PRINT AT(S^) bzw. mit 
PRINT ATXY(S^) identisch,nur daß‘S.Z’ zu‘Z,S’ bzw.XY zuYX 
vertauscht wird. Weitere Beschreibung s. dort 


SPCO 

Leerzeichen ausgeben 

SPC(Anzahl) 



'Anzahl' gibt die Anzahl auszugebender Leerzeichen an.SPCQ ist 
nur im Zusammenhang mit PRINT einsetzbar (z.B. print 
' 'Text<" ;SPC(12) ; ">Text"). 



WRITE {WR} 

Daten ausgeben 

WRITE [#Kanal, ] ["Text" [Var] [ 

, ;'] [Expr] [,;']... 


... [,Var,E>^r[,;']] 


WRITE hat eine mit PRINT vergleichbare Funktion. Die Anfüh¬ 
rungszeichen eines übergebenen Strings bzw. von Ausdrücken 
oder Variableninhalten, sowie Kommata, welche die einzelnen 
Listenausdrücke voneinander trennen, werden allerdings - anders 
als bei PRINT - durch WRITE ebenfalls ausgegeben. Bei Verwen¬ 
dung der Option ‘Kanal' werden die Daten in die geöffnete Datei 
mit dem angegebenen Index geschrieben. 


Der Sinn dieser Option ist das formatgerechte,auf den INPUT#- 
Befehl zugeschnittene Speichern von Werten und Texten. Sollen 
nämlich mit dem INPUT#-Befehl mehrere Werte oder Strings 
gleichzeitig eingelesen werden, so müssen die Einzeldaten durch 
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Kommata voneinander getrennt sein. Da WRITE# Kommata an 
den entsprechenden Ratz in der Datei schreibt, können die Daten 
beim Einlesen mit INPUT# unterschieden und den dabei angege¬ 
benen Variablen zugeordnet werden. 


Notizen: 
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Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 
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Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 

Textbildschirm- 


■Ope" len 
•Op \n 

•Of fatioi r 
■Op-'-- 
-Opena^ffen 

CäT Jnen 
Opk^^^nen 
•Op'’ 'onen 
Of # f inen 
•Op \r ^ßnen 
Op ■ ‘-jnen 
Op^^ Snen 
Operationen 
Op^^t Jnen 
Op J nen 
Optronen 
Op -len 

OpO^t Jnen 
Op^i-^ 
Opp'‘*^ionen 
Op ^nen 

Op '"^nen 
Op^^ironen 
Op^^ Jnen 
Opor-x- Jnen 
OpHMifenen 

Op # FJnen 
OpJr<^cnen 


Textbildschirm-Op^^ jnen 
Textbildschirm-OpfPS^ jnen 
Textbildschirm-Op^^^nen 
Textbildschirm-Operationen 


Te .ürm-Operatic en 


Te w |P lrm-0-- ln 

Te. Jrm-0|—iw ln 

TeX^iOolWirm-Or -iojn 


Te ^rm-O # 

jeJTWW!r^rnri-0^^ Obnen 
Te;^H^rm-0 °r? j>ner\ 
Te-^i^'schirm-Of^ •^nen 
Te. TOM Jchirm-0_^P5KjDnen 
Te.^^^Jrm-Oi^— ^nen 
Te- ^ 'schirm-O «PW ptten 
Te. *0 Jchirm-0[J%"aiTOnen 
Tej^^^dfchirm-Opt Itionen 
Te schirm-OpenItionen 
Te. fbil Jchirm-Operationen 
Te~**~’' ^-^i rm-Operationen 
Te)^W‘'^P*rm-Operationen 
Te ^^Jchirm-Operationen 
Tc'WflWsrhirm-Operationen 
Te>^BaalüJlrm-Operationen 
Te 'jchirm-Operationen 

ToTOh jchirm-Operationen 
Tevthii«4chirm-Operationen 
Te^^^ Jchirm-Operationen 
Jchirm-Operationen 
Te)*w»-^chirm-Operationen 
Te-**'-' ichirm-Operationen 
Te)*iP(PRchirm-Operationen 
Text jdschirm-Operationen 
TextuJdschirm-Operationen 
Textbildschirm-Operationen 
Textbildschirm-Operationen 
Textbildschirm-Operationen 
Textbildschirm-Operationen 
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3. TEXTBIIJDSCHIRM-Of«A'nONBs| 


3.1. CURSOR 

- NACHFRAGE 

CRSCOL 

aktuelle Cursorspalte liefern 

Var=CRSCOL 


Es wird der aktuelle Spalten-Index (X-Position) des Textcursors 
" geliefert 

CRSLIN 

aktuelle Cursorzeile liefern 

Var=CRSLIN 


Es wird der aktuelle Zeilen-Index (Y-Position) des Textcursors 
geliefert 

poso 

CR-bezogene Zeichenspalte ermitteln 

Var=POS (Durmy) 



■ Liefert einen Wert von 0bis255,derdie aktuelle Stringposition des 
Cursors seit der letzten Ausgabe eines CR’s (Wagen-Rücklauf) 
angibt Diese Position muß nicht immer mit der realen Cursor- 
Position identisch sein, da die bildschirm-bezogenen Cursor- 
Position einen Wert von max.80 annehmen kann. Für die Berech¬ 
nung von POS() werden ausschließlich Textteichen beachtet 

Das Ergebnis kann durch Steuerzeichen beeinflußt sein. Ein im 
ausgegebenen String enthaltenes ‘Carriage Return’ (CHR$(I3)) 
setzt den POS()-Zähler auf Null und ein 'Bockspace'-Zeichen 
(CHR$(8)) vermindert POS() um I. 

'Dummy’ ist ein beliebiger Blind-Wert ohne weitere Bedeutung. 
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3.2. CURSOR- 

POSITIONIERUNG 

HTAB {HT} 

HTAB Spalte 

aktuelle Cursorspalte bestimmen 

llll Positioniert den Text-Cursor in der angegebenen ‘Spalte’. 

VTAB {VT} 

WAB Zeile 

aktuelle Cursorzeile bestimmen 

lll Positioniert den Text-Cursor in der angegebenen ‘Zelle’. 

LOCATE {LocAT} 

UXäTE s,z 

Cursor positionieren 

llll Positioniert den Text-Cursor in Spalte ‘S’ und Zeile ‘Z’. 

LOCAXY 

LOCAXY S,Z 

Cursor positionieren 

lll Positioniert den Text-Cursor in Spalte ‘S’ und Zeile ‘Z’. 

LOCAYX 

LOCAYX Z,S 

Cursor positionieren 


Positioniert den Text-Cursor in Zeile 'Z' und Spalte ‘S*. 
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TABO 

Tabulator setzen 

TAB(Position) 




Bestimmung einer horizontalen Tabulatorposition, an welcher die 
darauffolgende PRINT- oderWRITE-Anweisung ausgeführt wird. 


'Postt/on'liegt im Bereich von I bis 255. Befindet sich der Cursor 
hinter der zuletzt angegebenen Tabulatorposition und liegt der 
Wert einer sich anschließenden TAB-Anweisung zwischen 256 
und der aktuellen Cursorposition, wird dieserTabulator in dersel¬ 
ben Zeile ausgeführt Ist ein TA^Wert kleiner als die aktuelle 
Cursorposition, wird die Anweisung erst in der nächsten Zelle 
wirksam. 


TAB() ist nur im Zusammenhang mit PRINT einsetzbar (z.b. 
PRINT ' 'Text<" ;TAB(2); ">Text;''). 


3.3. TEXTBILDSCHIRM ■ STEUERUNG 


SCROLL OFF { scro off } 

Text-Scrolling ausschalten 

SCROLL OFF 

1 

■ Unterdrückt das Text-Scrolling bei Erreichen der leaen Bild- 
schirm-Textposition (s. SCROLL ON). 

SCROLL ON {SCRO on } 

Text-Scrolling anschalten 

SCROLL CN 




Schaltet - auch im Grafikmodus - das Aufwärtsscrolling des 
Bildschirms an.Wird an der letzten Cursorposition in der rechten 
unteren Ecke des aktuellen Bildschirms (s. auch TCLIP) Text 
ausgegeben und die aktuelle Textausgabe will noch weitere Zei¬ 
chen ausgeben, so wird der Bildschirm-Inhalt um die aktuelle 
Textzeilen-Höhe nach oben verschoben und die Textausgabe am 
linken Rand der untersten (nun wieder leeren) Bildschirm-'fcxtzeile 
fortgesetzt 


Default-Einstellung bei Programmstart ist SCROLL ON. 
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TS 


Textbildschirm-Adresse liefern 


Var=_TS 


_TS ist eine reservierte Variable, die konstant die Segmentadresse 
des aktuellen Textbildschirms enthält (z.B.poke _tS:0, 65 schreibt 
im Textmodus ein‘A' in die linke obere Ecke des Bildschirms). 


TBOX { TB } Rechteck im Textmodus zeichnen 

I 

TBOX Itodus,XsteLrt,Ystart,Breit,Hoch 


lll TBOX zeichnet imTextmodus beliebige Rechtecke. Dazu werden 
^ die im IBM-Zeichensatz enthaltenen Rahmen-Zeichen (ASCII 179 
- 218) verwendet Die Attribut-Einstellungen durch TCOLOR 
werden dabei berücksichtigt 

‘Xstort’gibt die Textraster-Spalte (I bis 79 je nach Auflösung) und 
'Vstoft' die Textraster-Zeile (I bis 24 je nach Auflösung) für die 
obere, linke Ecke des Rahmens an. Durch die Parameter 'Breit' 
und 'Hoch' wird die Ausdehnung des Rahmens in die jeweilige 
Richtung angegeben. 

'Modus' bestimmt die Rahmen-Gestaltung: 

0 = Leerzeichen-Rahmen in Hintergrundfarbe 

1 = einfacher Rahmen 

2 = doppelter Rahmen 


TCOLOR { TCO } Textattribut im Textmodus bestimmen 

TCOLOR Attribut 


ImTextmodus kann durchTCOLOR dieTextfarbe und das Hinter¬ 
grund-Verho/ten’ gesteuert werden. Der ‘Attr/but'-Parameter 
setzt sich aus zwei sogenannten 'Nibbek’ zusammen. Ein Nibbel ist 
ein 4Bit-Wert von 0 bis 15, der bequem mit nur einer 
Hexadezimalziffer (0 bis F) dargestellt werden l^nn. In Kenntnis 
dieses Umstands ist es daher aus Gründen der Übersichtlichkeit 
ratsam, diesen Parameter hier auch als Hexadezimalwert anzuge¬ 
ben (z.B. TCOLOR $4e). 


BeiVerwendung einer MDA- oder Hercules-Adapters ergibt sich 
dieser ‘Attribut*-Wert wie folgt 
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Textbildschirm-Operationen 


I.Nibbel (Hintergrund): 


0 = schwarz 
7 = weiß 


Durch Addition d. Wertes 
könne blinkende Zeichen 
erzeugt werden 

Z.B. TCOLOR $F9: 

(15*16+9 = 249 dez.) 


2.Nibbel (Vordergrund): 


0 = schwarzes Zeichen 

1 = schwarz+Unterstrich 

2 = weißes Zeichen 

3 = weiß+Unterstrich 

Durch Addition des Wertes 
8 kann die Helligkeit des 
Zeichens erhöht werden 


helles schwarzes Zeichen auf 
blinkendem weißen Hintergrund 


Bei CGA-, EGA- und VGA-Karten ergibt sich folgende Tabelle: 


I .Nibbel (Hintergrund): 


0($0) 

Schwarz 

1 ($1) 

Blau 

2 ($2) 

Grün 

3 ($3) 

Türkis 

4 ($4) 

Rot 

5 ($5) 

Purpur 

6 ($6) 

Braun 

7 ($7) 

Hellgrau 


Durch Addition des Wertes 
8 können blinkende Zeichen 
erzeugt werden 


Z.B. TCOLOR $FF: 

(15*16+15 = 255 dez.) 


2.Nibbel (Vordergrund) 
=Zeichenfarbe: 


0($0) 

Schwarz 

1 ($1) 

Blau 

2 ($2) 

Grün 

3 ($3) 

Türkis 

4 ($4) 

Rot 

5 ($5) 

Purpur 

6 ($6) 

Braun 

7 ($7) 

Hellgrau 

8 ($8) 

Dunkelgrau 

9 ($9) 

Hellblau 

I0($A) 

Hellgrün 

11 ($B) 

Helltürkis 

12 ($C) 

Hellrot 

13 ($D) 

Hellpurpur 

14 ($E) 

Gelb 

15 ($F) 

Weiß 


grellweißes Zeichen 
blinkend auf hellgrauem 
Hintergrund 
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TGET { TGE } Bildschirmbereich im Textmodus speichern 

TGETT Tx_links,Ty_oben,Tx_rechts,'IV_ijnten,Var$ 


■ Dieser Befehl ist nur im Textmodus einsetzbar. Durch Txjlnks’, 
’Tyjoben’ und Txjrechts', Ty_unten’ wird im aktuellen 
Textraster ein Ausschnitt des Textbildschirms definiert, welcher 
als ASCII-Muster in die Stringvariable ‘Vor$'eingelesen wird. 

WarS’ enthält anschließend (jeweils im Hl-Byte) im ersten Wort 
die Breite des Ausschnitts, im zweiten Wort die Höhe sowie im 
dritten Wort $FFFF. Daran schließen sich der Reihe nach im 
Wortformat dieTextinformationen an. Für jedes Zeichen auf dem 
Bildschirm wird zuerst ein Byte ASCII-lnformation und dann ein 
Byte Farb-Information gespeichert Dabei wird hinter dem Header 
zuerst die erste Ausschnittzeile abgelegt danach die zweite, dann 
die dritte usw. 

Ein Textausschnitt mit 5 Zeichen Breite und 3 Zeichen Höhe hat 
demnach eine Länge von 3 Header-Words plus 5 mal 3 Daten- 
Words = ISWords = 36 Byte. 


TCLIP { Tc } Textausgabe-Bereich bestimmen 

TCLIP Tx_links,Ty_oben,Tx_rechts,Ty_unten 
TCLIP OFF 


Dieser Befehl ist nur im Textmodus einsetzbar. Er bestimmt einen 
Bildschirm-Ausschnitt der bis zum nächsten TCLIP bzw. TCLIP 
OFF als Ausgabe-Bildschirm angesehen wird. WRAP ON und 
WRAP OFF bzw.SCROLL ON und SCROLL OFF wirken sich 


auf diesen Bereich genauso aus, wie dies beim Gesamt-Bildschirm 
der Fall wäre. Der Befehl ist also nicht ganz mit dem Grafik- 
Clipplng (s. CLIP) vergleichbar. 


DiezweiteVarianteTCLIPOFF hebt den gfls.durchTCLIPdefinier- 
ten Bildschirm-Bereich auf und bewirkt wieder die Text-Ausgabe 
auf dem Gesamt-Bildschirm.TCLIP OFF wird bei Programmende 
nicht automatisch ausgeführt Das zuletzt aktiveT CLI P-Textfenster 
kann also beim nächsten Programmstart noch gültig sein. 
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TPBOX { TPB } gefülltRechteck im Textmodus zeichnen 

TPBOX Modus,Xstart.Ystart,Breit,Hoch 



TPBOX zeichnet imTextmodus mit der Hintergaindfarbe gefüllte 
Rechtecke.Weitere Erläuterungen zu den Parametern finden Sie 
unter TBOX. 


TPUT {Tpu} Bildschirmbereich im Textmodus setzen 

TPÜT Tx_links,TV_oben,Var$ 



Dieser Befehl ist nur im Textmodus einsetzbar. Durch das 
Koordinatenpaar Tx_//nk$' und Tyjoben’ wird eine Position im 
aktuellen Textraster bestimmt, an welcher die linke, obere Ecke 
eines durch TGET in der Stringvariablen 'VorJ' gespeicherten 
Bildschirmausschnitts angelegt wird. Dort wird der Inhalt von 
'Var$' als Textrechteck wieder ausgegeben. 


TTEXT { TT } Text auf Monochrom-Karte ausgeben 

TTEXT Spalte,Zeile,''Text'' 

TTEXT Spalte,Zeile+Modus*256, "Text" 



Wenn Sie über einen Zweitmonitor verfügen und diesen gfls. über 
eine Monochrom-Karte parallel betreiben, haben Sie mit diesem 
Befehl die Möglichkeit Text'gezielt darauf auszugeben. Dabei gibt 
‘Spalte* die Cursorspalte (I - 80) und ‘Zelle* die Cursorzeile (I 
- 25) an,in welcher dieAusgabe beginnen soll.Wird zum Parameter 
‘Zeile’ ein ‘Modus’-Wert*256 addiert kann damit gleichzeitig der 
Ausgabemodus für den Text' bestimmt werden (s.TCOLOR). 


WRAPON {WRON} 

Zeilen-Umbruch anschalten 

WRAP CN 



Schaltet - auch im Grafikmodus - das Abknicken einerTextausgabe 
bei Erreichen des rechten Randes des aktuellen Textausgabe- 
Bereichs an. DieAusgabe wird am linken Rand der nächsten Zeile 
fortgesetzt 

De^ult-Einstellung ist bei Programmstart immer WRAP ON. 
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WRAP OFF {WR OFF} Zeilen-Umbruch ausschalten 

WRAP OFF 


Unterdrückt das Abknicken der Textausgabe bei Erreichen der 
letzen Text-X-Position am rechten Rand. Die Ausgabe läuft - 
unsichtbar - über den rechten Ausschnittrand hinaus (s.WRAP 
ON). 
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Notizen: 




Diskette und Festplatte Diskette und Festp'-“' '^••'«tte und *-'-“0 
Diskette und Festplatte Diskette und Festpran pt Itteunc nipn I 
Diskette und Festplatte Diskette und Festplatt ki Itteunt ^stpla I 
Diskette und Festplatte Diskette und Festpl—'"Distette und. 

Diskette und Festplatte Diskette und Festf | \skette und FesTSme 

Diskette und Festplatte Diskette und Fest), y ^^skette unc_ 

Diskette und Festplatte Diskette und Festp'ip'^iskette und je tatte 
Diskette und Festplatte Diskette und Fest) • y iskette um * ^ 
Diskette und Festplatte Diskette und Festpiam oiskette und 
Diskette und Festplatte Diskette und Festf __ jjjcette unu' 

Diskette und Festplatte Diskette und Festj. Jiskette und 
Diskette und Festplatte Diskette und F _' liskette unu' 

Diskette und Festplatte Diskette und Fest] ftte Iskette unr 
Diskette und Festplatte Diskette und Feste., ^skette um 
Diskette und Festplatte Diskette und Festp'-“- ’^'-'-ette und 
Diskette und Festplatte Diskette und FestpiaiU! Uisnitte un< 

Diskette und Festplatte Diskette und Fest| Vsketteuno 

Diskette und Festplatte Diskette und Festf_y skeae und 

Diskette und Festjjlatte Diskette und Festpaitte Wskette unc 
Diskette und Festplatte Diskette und Festf Jjlcetteund 
Diskette und Festplatte Diskette und Festpjtte Jiskette unc 
Diskette und Festplatte Diskette und Festp' ^kette uno 

Diskette und Festplatte Diskette und Fest) jpte Jl^tte und 
Diskette und Festplatte Diskette und Festp*^ Diskette und 
Diskette und Festplatte Diskette und Fest| A | iskette un( 

Diskette und Festplatte Diskette und Fest;. \t ^^iskette unr 


iskette um * ß Itte 
Hskette und 
Njcette unüT^ hm i u.J 
psketteund^ 

j iskette unu^“-fStte 
iskette unr f. ftte 
iskette um « *^tte 
‘■■'ftte und l^«^iatte 
isntteum ^e 

« skette uno Jtst- Jtte 
skette und ^e 

'iskette un(.£strJne 
^slcette unc*' 'btte 
E^tteunr ^ |iytte 
"Ijkette uno 5E.^^tte 
p^tte und Festplatte 


Diskette und Festplatte Diskette und Festp*^ Diskette und Fesrnlatte 
Diskette und Festplatte Diskette und Fest! A | iskette unr litte 
Diskette und Festplatte Diskette und Fest;. \t ^^iskette unr ^—btte 
Diskette und Festplatte Diskette und Festplatte Diskette unaresTpfitte 

Diskette und Festplatte Diskette und Festplatte Diskette unr._Jtte 

Diskette und Festplatte Diskette und Festplatte Diskette und Fest ytte 
Diskette und Festplatte Diskette und Festplatte Diskette unu 1 ..«^tte 
Diskette und Festplatte Diskette und Festplatte Diskette und " 'btte 
Diskette und Festplatte Diskette und Festplatte Diskette um itte 

Diskette und Festplatte Diskette und Festplatte Diskette unr I 

Diskette und Festplatte Diskette und Festplatte Diskette und Festplatte 
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4. DISKETTE UND FESTPLATTE 


Bei allen Diskettenoperationen, denen ein Dateiname zu überge¬ 
ben ist, besteht die Möglichkeit, mit diesem einen Suchpfad zu 
definieren, über den der Dateizugriff ausgeführt werden soll: 

Laufwerkbezeichnung: 

Buchstabe mit nachfolgendem Doppelpunkt 

z.B.:‘A:’ für das erste Laufwerk,‘B:’ für das Zweite, etc.... 

Fragezeichen innerhalb des Dateinamens sind Platzhalter 
oder auch sog. 'Wildcards'. Es werden alle Dateien 
angesprochen, die bis auf die Fragezeichen mit dem ange¬ 
gebenen Dateinamen übereinstimmen. 

Z.B.: "C:\GFA\PROGRAM?.GF?" 

wäre sowohl für: 

" C:\GFA\PROGRAMM.GFA'' 


als auch für: 

" C:\GFA\PROGRAMS.GFW'' 


zutreffend. 

Sternchen im Dateinamen sind Platzhalterfür einen ganzen 
Bereich (vor oder nach dem Trennpunkt). 

Z.B.: "C:\GFA\*.GFA" 

wäre sowohl für: 

' 'C:\GFA\PROGl.GFA' ' 


als auch für: 

' 'C:\GFA\PR0G2.GFA' ' 

zutreffend. Also für alle Dateien im angegebenen 
Pfad, die über die Extension “.GFA” verfügen 
(extension= engl.; 'Erweiterung') 

Der Pfadname kann in den meisten Fällen als Stringausdruck, als 
Stringvariable oder als Kombination von beidem übergeben wer¬ 
den. 
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Im Folgenden taucht häufig der Begriff ‘#Kanar auf Damit ist bei 
dateirelativen Diskettenoperationen der Identifikator (0-99) der 
jeweils angesprochenen Datei gemeint. 

4.1. BLOCK - OPERATIONEN 

BLOAD {BL} Datei in Speicherbereich laden 

BLOAD ''Dateiname'Ziel 

‘Dateiname’ enthält den Namen der zu ladenden Datei. Der 
Parameter ‘Ziel’ bestimmt die Startadresse des Zielbereichs. 

BSAYE {Bs} Speicherbereich auf Datenträger sichern 

BSAVE "Dateiname" ,Quell,Bytes 

‘Dateiname’ enthält den Namen der Datei, in welcher der 
Speicherbereich abgelegt wird. ‘Quell’ enthält die Startadresse 
(SegmentiOffset) und ‘Bytes’ die Bytegröße des Bereichs. 

4.2. UMBENENNEN, LÖSCHEN, 
NACHFRAGEN UND SUCHEN 

DFREEQ freien Disk- bm Harddisk-Speicher ermitteln 

Var=DFREE(Laufwerk) 

^ ‘Laufwerk’ steht für die Nummer des Laufwerkes, dessen freier 
^ Speicher ermittelt werden soll. 

0 = akt. Laufw. / I = Laufw.A /... 26 = Laufw. Z 

EXISTO Existenz einer Datei prüfen 

Var=EXIST(Dateiname) 

‘Dateiname’ enthält den Suchpfad (s. Kapitelanfang) der Datei, 
deren Vorhandensein überprüft werden soll. 
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Liefert 0 (FALSE =Datei nicht vorhanden) 

oder -I (TRUE =Datei vorhanden). 


FGETDTAO Adresse der‘Disk-Transfer-Area’ ermitteln 

Var=FGETDrA() 



Liefert die Startadresse der mind. 42 Byte großen 'Disk-Transfer- 
Area’ im MSDOS-Adressformat Das Hl-Word des gelieferten 
Longwords stellt dabei die Segmentadresse und das LO-Word den 
Offset dar. 


Verschiedenen Diskettenzugriffe (DIR,FILES,EXIST,FSFIRST 
etc.) verwenden die DTA (üblicherweise bei _PSP+I28) zur 
Ablage des aktuell gelesenen Dateinamens und seiner Attribute. 


Offset: Bedeutung: 

0 - 20 für MSDOS reserviert (21 Bytes) 

21 Datei-Attribut (I Byte) 

ByTE{FGETDTA()+21) 

ergibt 

0 = normale Datei (lesen/schreiben) 

1 = schreibgeschützte Datei 

2 = versteckte Datei 

4 = System-Datei 

8 = Disketten-Name (Volume Label) 

16 = Unter-Verzeichnis (Ordner) 

32 = Archiv-Datei (nur bei Harddisk) 

22 Uhrzeit 

(2 Byte: 5BitStd+6BitMin+5BitSec) 

24 Datum 

(2 Byte: 7BitTag+4BitMon+5Bi^hr+1980) 

26 Dateilänge (4 Byte) 

30-41 Dateiname (12 Byte) 


FSETDTAO Adresse der‘Disk-Transfer-Area’ bestimmen 

VOID FSETDTA(Adresse) 


Ermöglicht die Bestimmung der Startadresse der 'Disk-Transfer- 
Area’ (s. FGETDTAO). ‘Adresse’ ist eine beliebige gerade 
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Adresse, die mindestens 128 Byte vor Ende eines Speicher- 
Segments liegen sollte. 


FSFIRSTO Datei suchen 

Var=FSFIRST(Pfad$,Attribut) 


Sucht die erste vorkommende Datei, auf welche die Suchvorgabe 
‘PfadS’ zutrifft (s. Kapitelanfang). Zusätzlich kann ein Datei- 
Attribut (s. FGETDTAO) angegeben werden. Besitzt eine Datei 
nicht dieses Attribut, wird es bei der Suche ignoriert. 

Wird eine Datei gefunden, können die entsprechenden Daten aus 
der ‘Disk-Transfer-Area’ ausgelesen werden (s. FGETDTAQ). Ist 
keine Datei mit den angegebenen Kriterien zu finden, wird in Vor' 
ein negativer Wert geliefert. 


FSNEXTO weitere Datei suchen 

Var=FSNEXT() 


fl Sucht die nächste Datei, auf welche die beim letzten FSFIRSTQ 
vorgegebenen Suchkriterien zutreffen.Wird eine Datei gefunden, 
können die entsprechenden Daten aus der 'Disk-Transfer-Area' 
ausgelesen werden (s. FGETDTAO). Ist keine weitere Datei mit 
den angegebenen Kriterien mehr zu finden, wird in Vor' ein 
negativer Wert geliefert 


KILL {Kl} Disk-Datei löschen 

I 

I KILL ''Dateiname'' 


'Dateiname' bestimmt als Textausdruck oder als Stringvariable 
den Namen einer Datei, die gelöscht werden soll. 


NAME..AS { NA..AS } Datei umbenennen 

tlAME ''Name_alt" AS "Name_neu" 

‘Name_alt’ ist der Dateiname, der ersetzt werden soll. Nach 
einem angehängten 'AS' wird 'Name_neu' übergeben, der dann 
'Name_ah' ersetzt. Innerhalb einer Station kann eine im 
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Hauptdirectory verzeichnete Datei durch eine entsprechende 
Pfadangabe im neuen Namen in ein vorhandenes Unter-Verzeich¬ 
nis (Ordner) verlegt werden. 


RENAME..AS { REN..AS } Datei umbenennen 

RENAME "NaiTie_alt" AS ''Naire_neu" 



Entspricht exakt dem Befehl NAME (weiteres s. dort). 


4.3. IhTTERPRETER-BEFEHLE 


LIST {Lis} Programm als ASCII-Code listen/speichern 

LIST ['' Prograitmnaitie'' ] 



LIST ohne Zusätze gibt den aktuellen Programmtext auf dem 
Monitor aus. Ein Abbruch des Listings kann durch die Break- 
Funktion (s. ON BREAK...) erfolgen. 


Das Listingwird alsASC//-File auf Diskette gespeichert, wenn dem 
Befehl ein ‘Programmname’ übergeben wird. Befindet sich be¬ 
reits ein Programm gleichen Namens auf der Diskette, wird es 
automatisch in ‘Programmname.BAK’ umbenannt. 

Hiermit abgespeicherte Programme können mit der Editor-Funk¬ 
tion ‘Merge’ in den Arbeitsspeicher eingelesen werden. 


LOAD { LOA } Programm in Arbeitsspeicher laden 

LOAD '' Programmnaine'' 


p 'Programmname’ist der Name des zu ladenden Programms. Das 
aktuelle Programm wird beendet und aus dem Speicher gelöscht. 
Die voreingestellte Datei-Extension ist'.GFA’. 
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PSAVE {PSA} 

Programm speichern (listgeschützt) 

PSAVE '' PrograiniTiane'' 


Für diesen Befehl gilt die gleiche Ausführung wie zu SAVE. PSAVE- 
Programme werden nach dem Laden selbsttätig gestartet und 
können anschließend im Editor nicht gelistet werden. 

SAVE {SA} 

Programm speichern (Token-Code) 

SAVE "Programmnanie'' 



Speichert das im Arbeitsspeicher befindliche Programm GFA- 
tokencodiert unter ‘Programmname’ auf Diskette. Die vor¬ 
eingestellte Datei-Extension ist '.GFA'. Fehlt die Extension bei der 
Angabe des Namens, wird der ‘Progrommnome* automatisch auf 
‘Programmname.GFA’ ergänzt. 

Befindet sich bereits ein Programm gleichen Namens auf der 
Diskette, wird es automatisch in ’Programmname.BAK’ umbe¬ 
nannt. 


4.4. DIRECTORY-OPERATIONEN 


CHDIR { CHD } Ordner wechseln 

C'HDIR ' 'Ordner'' 


Ist nur innerhalb eines Laufwerks einsetzbar.Ein Laufwerkswechsel 
ist durch CHDIR nicht möglich (s.CHDRIVE). Besteht 'Ordner' 
nur aus dem Backslash (“\”), wird danach nicht auf ein Unter- 
Verzeichnis (Ordner), sondern auf das Haupt-Directory (WurzeF 
Verzeichnis) zugegriffen. 

Es kann statt eines gfls. übergeordneten Verzeichnisnamens das 
Kürzel verwendet werden, wodurch ein Wechsel aus dem 
aktuellen Verzeichnis in den Ordner der darüberliegenden Ebene 
erfolgt. Ist kein Über-Verzeichnis vorhanden, erscheint eine ent¬ 
sprechende Fehlermeldung. 
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CHDRIYE { CHDR } aktuelles Laufwerk bestimmer 

CHDRIVE Laufwerk CHDRIVE Pfad$ 

H 'Laufwerk’ bestimmt das aktuelle Laufwerk: 


Laufwerk A 
Laufwerk B 
Laufwerk Z 


Es kann auch ein Textausdruck angegeben werden, dessen erstes 
Zeichen als Stationsbestimmung interpretiert wird 


CHDRIVE "A:\*.*‘ 


Directory ausgeben 


DIR ["Pfad"] [TO "Datei"] 


P Das Disk-, bzw. Verzeichnis-Directory kann auf dem Bildschirm 
^ (DIR [' 'Pfad'' ]) oder mit dem Zusatz ' 'Pfad'' TO 
' 'Datei' ' in eine Diskdatei oder eine virtuelle Datei (z.B. 
' ' CON: '' oder '' PRT :'') ausgegeben werden. 

Wird die Ausgabe aller Dateien gewünscht, wird üblicherweise 
''A:\*.*'' bzw. ''VerzeichX* . *'' etc. als ‘Pfad’ ver¬ 
wendet. Endet ‘Pfad’ mit ':' oder ' \ ' , so wird ' * . *' vom 
Interpreter intern automatisch hinzugefügt. 


DIR$0 


aktuellen Ordnernamen ermitteln 


Var$=DIR$(Laufwerk) 

^ ‘Laufwerk’ bestimmt die zu überprüfende Station: 

0 = aktuelles Laufwerk 

I = Laufw. A 

.. 26 = Laufw. Z 

Ist z. Zt. kein Unterverzeichnis (Ordner) geöffnet, so wird ein 
Leerstring zurückgegeben. 
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FILES {Fl} Directory (erweitert) ausgeben 

FILES ["Pfad"] [TO "Datei"] 

llll Erstellt das Inhaltsverzeichnis einer Diskettenstation oder eines 
Unterverzeichnisses zusammen mit den Angaben über Länge, 
Uhrzeit und Datum der einzelnen Dateien.Weitere Erläuterungen 
finden Sie unter DIR. 


MKDIR {MK} 

Ordner erzeugen 

MKDIR "Ordner" 



Erzeugt ein Unterverzeichnis (hier mit der Bezeichnung'Ordner^ 
im alöuellen Directory. Durch eine entsprechende Pfadangabe 
kann der Ordner auch in beliebigen Verzeichnissen erzeugt wer¬ 
den (z.B. ' 'C; \Lager_l\Fach_3 '' erzeugt den Ordner 

‘Fach_3‘ innerhalb des Ordners 'Ljager_l’) 


RMDIR {RM} 

-1 

Ordner löschen 

KMDIR "Ordner" 



‘Ordner’ enthält den Namen (gfls. incl. Pfad) des 
Unterverzeichnisses, das gelöscht werden soll. Das Verzeichnis 
darf dazu keine Dateien oder Unterordner mehr enthalten (auf 
versteckte Dateien achten!). 
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5. DATEI - HANOHABUNG 

5.1. ÖFFNEN. SCHLIESSEN, 
POSITION UND DATUM 


CLOSE {CL} 

Datenkanal schließen 

CLOSE [#Kanal] 

i 

i 


Wird der Befehl ohne die Option W(anal' verwendet, werden 
^ alle offenen Dateien geschlossen, sonst nur die mit der angegebe¬ 
nen Kanalnummer, sofern sie vorher mit OPEN geöffnet wurde. 
Bei Programmende werden alle offenen Dateien automatisch 
geschlossen. 


OPEN {o} Datenkanal öffnen 

OPEN "Modus",#Kanal, "Dateiname" [,Satzlänge] 


Es können Datenkanäle (Festspeicher-Dateien, Peripherie-Gerä- 
^ te) zum Einrichten, Schreiben, Lesen, Ergänzen oder Erneuern 
geöffnet werden. 

‘Modus’: 

“O” - (Output) - öffnet eine Datei zum Schreiben 
von Daten, oder, falls die Datei noch nicht 
vorhanden ist, installiert diese mit der angege¬ 
benen Kanalnummer.Existiert bereits eine Datei 
mit derselben Namensspezifikation, wird sie 
durch die neue Datei überschrieben, bzw. ge¬ 
löscht. 

“l" = (Input) - öffnet eine bestehende Datei zum 
Lesen der darin enthaltenen Daten. 

"A" = (Append) - öffnet eine bestehende Datei und 
setzt den Filepointer hinter das letzte Byte der 
Datei. Alle an diese Datei auszugebenden Da¬ 
ten werden an dies Dateiende angehängt. 


HotSpot (g^ 




Datei-Handhabung 




"U" = (Update) - öffnet eine bestehende Datei mit 
der Möglichkeit, diese gleichzeitig zu lesen und 
in sie zu schreiben. 

"R" = (Random) - öffnet eine Random-Access-Datei 
zum Lesen und Schreiben. 

M it Random-Access-Dateien ist es möglich, Datensätze 
für wahlfreien Zugriff innerhalb einer Datei anzule¬ 
gen. Maximal sind 65535 Datensätze pro Datei mög¬ 
lich. 

Diese Datensätze werden durch den Befehl GET# 
gelesen und durch PUT# geschrieben. Die Einrich¬ 
tung der Datei erfolgt durch den Befehl FIELD#. 

Der OPEN-Befehl erweitert sich gegebenenfalls 
hierfür um den optionalen Parameter 'Satzlänge’. 
Wird er verwendet, gibt er die Anzahl der Bytes an, 
die den Datensätzen zugeordnet werden soll.Wenn 
nichtsiehtder Interpreterautomatisch eine Satzlänge 
von 128 Byte vor. 

Die Länge einer‘R’-Datei hängt von der eingerichte¬ 
ten Satzlänge und der Anzahl der Datensätze ab 
(Satzlänge'^Satzanzahl). 

‘#Kanal’ gibt den Datei-Identifikator (0-99) an. 

‘Dateiname’ beschreibt den Zugriffspfad (Suchpfad) der zu bear¬ 
beitenden Datei. 


Außer Festspeicher-Dateien können auch gfls. angeschlossene 
Periperiegeräte angesprochen werden; 


“CON:” 

“VID:” 

"LPTI:...LPT4:” 

"COMI:...COM4:” 

"MON:” 


= Consolport(Monitorohne Steuerzeichen) 
= Video-Port (Monitor incl. Steuerzeichen) 
= Parallel-Ports (LPT1 = Drucker-Port) 
= Serielle Ports (COMmunication-Ports) 
=Ausgabe auf Monochrom-Zweitmonitor 
mittels MDA/HGC-Karte (z.B. per 
TRON #) 


Zu "VID:’ beachten Sie bitte das Beispiel zu XLATESQ.‘/Modus* 
kann bei Verwendung dieser Möglichkeit entfallen. 

Die Eingabe der OPEN-Zeile kann extrem verkürzt werden. So 
wird z.B. 
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oll Name.Lst 


vom Editor in 

OPEN ''I'#1,''Name.Lst'' 
und z.B. 

o o 1 Name$ 


in 


OPEN ''o'',#l,Name$ 

umgewandelt. Alle An- und Ausführungsstriche, das 
Nummernzeichen,sowie dieTrennkommas können vernachlässigt 
werden, sofern zwischen den einzelnen Komponenten ein 
Leerzeichen angegeben wird. 


RELSEEK {REL} Filepointer verschieben 

RELSEEK #Kanal,[-] Offset 


‘Offset’ enthält die Anzahl der Bytes, um die der Filepointer ohne 
sonstige Aktivitäten verschoben werden soll. Negative Werte 
bewirken eineVerschiebung von der aktuellen Position in Richtung 
Dateianfang. 


SEEK {SE} Filepointer setzen 

SEEK “Kanal,[-] Position 


fM Der Parameter ‘Position’ gibt das Byte an, auf welches der zu 
^ ‘#Kanal’ gehörige Filepointer absolut gesetzt werden soll. Nega¬ 
tive Werte bewirken, daß der Byteoffset vom Dateiende aus 
gezählt wird. 


TOUCH {Tou} Datei-Zeitangabe ändern 

TOUCH [#]Kanal 


Schreibt die aktuelle System-Zeitangabe (s. TIMES) in die dafür 
vorgesehene Position des Datei-Eintrags im betreffenden Directory. 
Kurz:aktualisiert den Zeiteintrag der Datei ‘Kanal’ (0-99). Dieser 
muß durch OPEN vorher geöffnet worden sein. 
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5.2. DATEI - READ/WRITE 


BGET {BG} 


Teildatei lesen 


IK5ET #Kanal, Ziel,Anzahl 

in Ab aktueller Filepointerposition werden ‘Anzahl’ Bytes der Datei 
in den Speicher gelesen. ‘Ziel’ beschreibt die Startadresse 
(SegmentiOffset) des Ziel-Speicherbereichs. 


BPUT {BP} 


Teildatei schreiben 


] HPUT #Kanal,Quell,Anzahl 

n^i Ab der Startadresse ‘Quell’ (SegmencOfTset) werden ‘Anzahl’ 
Bytes aus dem Speicher gelesen und die Datei ab der aktuellen 
Filepointerposition mit diesen Daten überschrieben. 


INP(#) 


Daten byteweise aus Datei lesen 


Var=INP(#Kanal) 

M ‘UKanal’ beschreibt den Datd-Identifikator (0-99), aus dem ein 
* einzelner Bytewert an der aktuellen fi/epo/nter-Position gelesen 
werden soll. Der gelesene Bytewert steht anschließend in ‘Vor'. 


OUT # {ou} 


Daten einzeln in Datei schreiben 


(XJT #Kanal,B/tel [,Byte2 [,...]] 

(X)T& #Kanal,Wordl [,Wbrd2 [,...]] 

I (Xn’% #Kanal,Longl [,Long2 [,...]] 

U Es werden einzelne Werte an die Datei mit dem Identifikator 
‘UKanal’ (0-99) gesendet. Der angegebene Wert (bzw. die durch 
Komma getrennte Werteliste) wird dort - je nach Syntax-Variante 
als Byte, Word oder Long - an die aktuelle Filepointerposition 
geschrieben. 
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PRINT# 

Daten in Datei ausgeben 

PRINT »Kanal,[;] ''Text" [| 

' ]Var[;, ' ]Expr. . .; ] 


Siehe Beschreibung zu PRINT. BeiVerwendung dieser Syntaxform 
^ werden die Daten an der aktuellen Filepointer-Position der geöff¬ 
neten (s.OPEN) und durch‘Kano/’angegebenen Datei geschrie¬ 
ben. 


PRINT # USING Formatierte Ausgabe in Datei 

PRINT #Kanal, USING "format" [,;' ]Expr [,Var, .. ] 

P' Siehe Beschreibung zu PRINTUSING.DieserBefehlbewirktdie 
formatierte Datenausgabe in die durch‘Kono/’angegebene Datei 
(0-99). 


RECALL {REc} Stringfeld aus Datei lesen 

RECALL [#]Kanal,Feld$(),Anzahl,Zeilen 

Ä Liest ‘Anzoh/’Textzeilen aus der Datei mit der Kennung ‘Kanal’ 
(0-99; muß durch OPEN geöffnet worden sein) in das - vorher 
ausreichend zu dimensionierende-Stringfeld'Fe/dJO’.Ein'Corr/oge 
Return’ (CHR$(I3)) wird dabei als Zeilenende interpretiert. 

Den Feldelementen wird der Reihe nach je eine Zeile zugeordnet. 
Ist das Feld zu kurz (falls Elementeanzahl kleiner als die Anzahl der 
gelesenen Zeilen), wird der Leseprozess beim letzten Element 
abgebrochen. Stößt das Programm beim Lesen auf das Dateiende, 
wird ebenfalls abgebrochen (ohne Fehlermeldung). In der 
Rückgabevariablen ‘Zeilen’ (Fließkomma- oder 4Byte- 
Integervariable) steht anschließend die Anzahl der tatsächlich 
gelesenen Zeilen. 


STORE { ST } Stringfeld in Datei ablegen 

STORE [#]Kanal,Feld$()[,Anzahl] 


Speichert die Elemente des Stringfeldes ‘Feld$()’ der Reihe nach 
in der geöffnet Datei ‘Kono/’.Als Endmarkierung wird dort jeder 
geschriebenen Zeile ein CRJLF {'Carriage Return’/’Une Feed' = 
CHR$( 13)/CHR$( 10)) angehängt. 


HotSpot (§1^ 




Datei-Handhabung 



Durch den optionalen Parameter ’Anzahr kann bei Bedarf die 
Anzahl der auszugebenden Elemente begrenzt werden. 


5.3. DATEI-INFO 


-FILEO MSDOS-Handle einer Datei liefern 

Vrtr=_FILE(Kanal) 


Liefert das MSDOS-Systemhandle der durch ‘Kona/'(s.OPEN:0- 
99) angegeben (und geöffneten) Datei. Ist kein Kanal geöffnet,wird 
eine Null zurückgegeben. 

Die Peripherie-’Dote/en’ sind dabei an folgenden Handles zu 
erkennen: 


CON: 

VID: 

LPT1: bis LPT4: 
COM I: bis COM4: 
MON: 


-I 

-2 

-3 bis -6 
-7 bis-10 


-II 


Anhand dieser Handles ist es möglich, auch Peripheriegeräte aus 
dem GFA-BASIC heraus direkt über die entsprechenden DOS- 
Funktionen anzusprechen. 


lEOFO Datei auf Dateiende prüfen 

I Vdr=EOF(#Kanal) 


Befindet sich der Filepointer auf dem letzten Byte der angegebenen 
und geöffneten Datei, wird -1 geliefert, andernfalls 0. 


LOCO Filepointerposition liefern 

V,ir=LOC{#Kanal) 


Der zu jeder geöffneten Datei gehörige Schreib- und Lesezeiger 
(Filepointer) ‘zeigt’ auf die aktuelle Position des Schreib- und 
Lesekopfes innerhalb der Datei. Diese Position wird durch LOC() 
geliefert. 
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; LOFO Dateilänge ermitteln 

i Var=LOF(#Kanal) 



Es wird die Größe der mit OPEN geöffneten Datei mit dem 
angegebenen Identifkator (0-99) ermittelt 


5.4. RANDOM-ACCESS-OPERATIONEN 


FIELD { FiE } Datensatz in Elemente unterteilen 

FIELD #Kanal,Anz AS Varl$ [,Anz AS Var2$,...] 

FIELD #Kanal,Anz AT(Adrl) [,Anz AT(Adr2),...] 


Ordnet in der ersten Syntax-Variante den einzelnen Datensatz- 
Elementen einzelne Bytelängen zu und füllt die dazugehörigen 
Aufnahme-Stringvariable(n) yar" mit Leerzeichen. 

W^anal’ gibt die ‘R’-Datei an (s. ‘Open’), die in Datenfelder 
aufgeteilt werden soll. Es wird jeweils die in 'Anz' angegebene 
Anzahl an Bytes der nach AS folgenden Variablen zugeordnet. 
Die mit 

'Open,''R'',#Kanal,''Dateiname'',Satzlänge' 

eingerichtete Satzlänge wird so in verschiedene Datenfelder ein¬ 
geteilt Die Sumnne aller Feldgrößen mußderangegebenen Saalänge 
entsprechen. Für jeden geöffneten Datenkanal im‘R-Modus ist nur 
eine Field-Anweisung zulässig. 

Bei der'AS'-Variante müssen gfls.numerische Daten durch MKD$/ 
MKI$/MKL$/MKS$ vor ihrer Speicherung in das Stringformat 
konvertiert und die durch GET# gelesenen Daten wieder durch 
CVD/CVI/CVL/CVS in das entsprechende numerische Format 
zurückgewandelt werden. 

Bei der zweiten Syntax-Variante ist dies nicht notwendig, da als 
Quell- und Zieladresse ja die Startadresse einer entsprechenden 
numerischen Variable angegeben werden kann. Dabei enthält 
‘Anz’ die Anzahl an Bytes, die ab der zugehörigen - hinter AT in 
Klammern gesetzten - Adresse gelesen werden söllen. 
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Z.B.: 


a*=673123 

b%=VARPTR(a%) I- Werte 

ci=1000 I- vorbereiten 

d=61234.1231 - 

FIELD #1,4 AT(b%),2 AT(*C&) 1. FIELD-Zeile 

FIELD #1,8 AT{V:d) g£ls.2. FIELD-Zeile 

Textstrings sollten nicht mit der ‘4T'-Variante verwaltet werden, 
da sich die Anfangsadresse einer Textvariablen nicht unbedingt 
statisch verhält 

'AT'- und ‘AS'-Elemente können in einer FIELD-Zeile beliebig 
gemischtwerden(z.B. FIELD #1,2 0 AS a$, 2 AT(*b&) 
Außerdem kann die FIELD-Aufteilung für eine Datei auf mehrere 
Programmzeilen verteilt sein. 


GET# {GE} Datensatz lesen 

CET [#]Kanal [,Satznummer] 


'Kanal'gibt die ‘R-Datei (s. OPEN) an, aus welcher der angege¬ 
bene Datensatz gelesen werden soll. Bei der Zuordnung von 
Datensätzen zu einer ‘R'-Datei ist jedem Satz eine Nummer 
zuzuteilen. Unter Angabe dieser 'Satznummer' (max. 65535) 
kann der Datensatz mit GET# wieder in die mit Fl ELD spezifizierten 
Sthngvariablen bzw.Speicherbereiche zurückgelesen werden. Fehlt 
'Satznummer', wird jeweils der nächste Datensatz gelesen. 


PUT # {PU} Datensatz schreiben 

lirr [#]Kanal [,Satznunitier] 


# Es wird der mit'Satznummer* (max.65535) definierte Datensatz 
aus den mit FIELD spezifizierten Stringvariablen bzw. 
Speicherbereichen in eine ‘R’-Datei mit der Nummer 'Kanal' 
geschrieben. Fehlt 'Satznummer', wird der jeweils nächste 
Datensatz geschrieben. 
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RECORD {RECO} GET#/PUT#-Satzzeiger positionieren 

RECORD [#]Kanal,Satznuiiiner 

1" Setzt den Sotz-Ze/gereiner'R’-Dateifürden nächsten GET#- oder 
PUT#-Zugriff auf den durch ‘Satznummer' spezifizierten 
Datensatz.Wird beim nächsten GET#oder PUT#der Parameter 
'Satznummer' ausgelassen, wird der durch RECORD hier ange¬ 
gebene Datensatz als nächstes gelesen bzw. geschrieben. 
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Peripherie Peripherie Peripherie 
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Peripherie Peripherii__Mierie 
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6. PERIPHERIE 
6.1. HARDWARE-I/O 


INP(PORT) Daten aus Hardware-Port lesen 

Bytevar=INP(PORT Nr) 

Bytevar=INP|(PORT Nr) 

Wordvar=INP&(PORT Nr) 

Longvar=INP%(PORT Nr) 


I Aus dem Hardware-Port'Nr' (gfls.Peripherie-Chip-Adresse) wird 
^ ein Wert gelesen. 

Der 'Nr'-Index für die in Frage kommenden Adreßbereiche ist 
nicht explizit definiert und der Befehl nur bei genauester Kenntnis 
der Hardware-Spezifikationen einsetzbar. 


OUT {ou PORT } Daten in Hardware-Port schreiben 

OUT PORT Nr,Bytewert 
OUTI PORT Nr,Bytewert 
OUTSc PORT Nr,Wortwert 
OUT% PORT Nr,Longwert 


DerangegebenWertwird in den Hardware-Port'Nr'geschrieben. 
Weiteres siehe unter INP(PORT). 

6.2. DRUCKER-ANWEISUNGEN 


HARDCOPY { HA } Text-Bildschirm auf Drucker ausgeben 

HARDCOPY 


Dieser Befehl ist mit einem Druck auf die ‘Druck’-Taste identisch. 
Ist der Drucker nicht empfangsbereit, ertönt ein Signalton. 
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LUST {LL} Programmlisting ausdrucken 

1X,IST ["Dateiname"] 

H Das Druckeiiisting kann - falls die Break-Funktion (s.ON BREAK...) 
aktiv ist - jederzeit durch die Breaktasten unterbrochen werden. 
Der I nterpreter ist dann wieder arbeitsbereit und es wird nur noch 
der Inhalt des Druckerpuffers ausgedruckt Soll das auch noch 
unterbunden werden, ist der Drucker auszuschalten. 

Durch die Option “Dateiname" kann die Ausgabe auch in die 
angegebene Datei umgelenkt werden (s. LIST). 



LPOS() ermittelt die Position des virtuellen Druckkopf innerhalb 
des Drucker-Puffers. 'Dummy' ist ein beliebiges Scheinargument 
ohne Bedeutung. 


LPRINT {LPR} 


Daten auf Drucker ausgeben 


I.PRINT [,'] "Text" [[;,'] Var EJ 5 >r...] 

Ife Es gelten weitestgehend diesselben Ausführungen wie zu PRINT. 
' Eine Druckkopf-Positionierung mit Hilfe des Zusatzes AT ist 
allerdings nicht möglich. 


Zu den Steuersequenzen Ihres Druckers (Escapes) beachten Sie 
bitte Ihr Druckerhandbuch. 
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Strukturen und'^^'(Mjungen 
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Strukturen und Ve p t Jungen 
Strukturen und Ver^v^fungen 
Strukturen und Ve^^ jungen 
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Sti ^ |n und Verzweigungen 
Sti 'k^6n und Verzweigungen 
und Verzweigungen 
StrfMVKU^jnd Verzweigungen 
Strul Iren und Verzweigungen 
Strukwren und Verzweigungen 
Strukturen und Verzweigungen 
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7. STRUKTUREN UND 
VERZWEIGUNGEN 

7.1. SCHLEIFEN-KONSTRUKTIONEN 


DO... LOOP {DO... L} Endlosschleife 

DO 

... auszuführende Programmteile 
LOOP 

oder: 

DO [WHILE Bedingung] [UNTIL Bedingung] 

... auszuführende Prograirmteile, wenn die 
... DO-'Bedingung' wahr ist, bzw. 

solange die LOOP-'Bedingung' wahr ist. 

LOOP [WHILE Bedingung] [UNTIL Bedingung] 

Eine‘normo/e’DO...LOOP-Schleife kann nur abgebrochen werden, 
wenn sie auf eine Abbruch-Anweisung (END, EDIT, STOP) 
trifft, eine EXIT IF-Anweisung findet und die Abbruchbedingung 
wahr ist, eine GOTO-Anweisung (bitte nicht!!) innerhalb der 
Schleife zu einem Label außerhalb der Schleife verzweigt oder die 
Break-Funktion (s. ON BREAK...) verwendet wird. 

Mit der zweiten Syntax-Variante ist es möglich, eine DO...LOOP- 
Konstruktion mit Eingangs- und Ausgangsbedingungen zu 
versehen. Dazu kann sowohl bei DO,als auch bei LOOP entweder 
eine WHILE- oder eine UNTIL-Bedingungsabfrage hinzugefügt 
werden (s WHILE...WEND, bzw REPEAT...UNTIL) Allge¬ 
mein ist es möglich, fast alle erdenklichen Kombinationen von 
WHILE...WEND-,REPEAT...UNTIL- und DO...LOOP-Schleifen zu 
realisieren. 

Statt LOOP kann synonym auch ENDDO verwendet werden. 

DO...LOOP-Schleifen können - wie alle anderen Schleifen in GFA- 
BASIC auch - beliebig tief verschachtelt werden. 
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FOR... NEXT {F... N} Zählschleife 

FOR Zaehl=Anf TO [DCWNTO] Ende [STEP Schritt] 

... auszuführende Progrartiiiteile 
NEXT Zaehl 

Die Kopfzeile der Schleife entfiält den Anfangswert ‘Anf und den 
Endwert ‘Ende’. Die Zählvariable ‘Zaehl’ wird, beginnend mit 
‘Anf’ solange erhöht bzw. vermindert bis sie den Wert ‘Ende’ 
erreicht hat. Danach wird das Programm mit der auf die NEXT- 
Anweisung folgenden Programmzeile fortgesetzt. Wird nur FOR 
TO / NEXT ohne die Zusätze DOWNTO oder STEP verwendet 
beträgt die Schrittweite immer +1 (s. Beispiel zu XLATES). 

Bei Verwendung von DOWNTO statt TO ist der Anfangswert 
größer als der Endwert anzugeben.da in diesem Fall die Schrittweite 
immer -I beträgt. Die Option STEP (nur bei TO-Schleifen) 
bewirkt daß der nach STEP angegebene Wert oder Ausdruck als 
Schrittweite angenommen wird. Hier sind auch negative Werte 
möglich. 

Statt ‘NEXT Var’ kann auch ‘ENDFOR Var’ { ENDFO } angege¬ 
ben werden. 


REPEAT... UNTIL < rep ... u } End-bedingte Schleife 

REPEAT 

auszuführende Programmteile 
IINTIL Bedingung 


Die Bedingung zum Schleifen-Exit wird am Schleifenende geprüft. 
D.h.,daß das Programm die Schleife mindestens einmal bis zu der 
in UNTIL vereinbarten Bedingung durchläuft (falls keine zusätzlich 
in der Schleife angeordnete EXIT IF-Bedingung mit 'wohr' beant¬ 
wortet wird). Ist ‘Bedingung’ wahr, wird das Programm mit der 
nächsten auf UNTIL folgenden Zeile fortgesetzt (s. Beispiel zu 
XLATE$). 

Statt ‘UNTIL Bedingung’ kann auch ‘ENDREPEAT Bedingung’ 
{ ENDR } angegeben werden. 
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WHILE...WEND {w...we} Start-bedingte Schleife 


WH ILE Bedingung 

auszufiihrende Programmteile 

WEND 


Die Exit-Bedingung wird am Schleifenanfang geprüft. D.h., daß die 
Schleife nicht durchlaufen wird, falls die bei WHILE vereinbarte 
‘Bedingung’ wahr ist. Ist ‘Bedingung’ wahr, wird das Programm 
mit der nächsten auf WEND folgenden Zeile fortgesetzt. 

Statt WEND kann auch ENDWHILE { ENDW } angegeben 
werden. 


7.2. BEDINGTE VERZWEIGUNGEN 


EXITIF {EX iF} Bedingter Schleifenabbruch 

EXIT IF Bedingung 


Es kann unabhängig vom Zustand einer Schleife diese jederzeit 
verlassen werden, wenn die durch EXIT IF gestellte ‘Bedingung’ 
wahr ist Das Programm wird dann mit der nächsten Programmzeile 
hinter dem nächsten Schleifenwendepunkt (LOOP, NEXT, 
WEND etc.) fortgesetzt. In allen Arten von Schleifen sind an 
beliebigen Stellen beliebig viele EXIT IF’s möglich. 
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IF 


Bedingungsabfrage 

••• 

[ELSE] 

{EL} 

‘sonst’-Anweisung 

••• 

[ELSEIF] 

{EIF} 

Unter-Bedingungsabfrage 

••• 

ENDIF 

{EN} 

Abfrage-Ende 

IF Bedingung [THEN] 

... auszuführende Prograitmteile, 
wenn 'Bedingung' wahr ist 

[ELSE 


... auszuführende Prograinrteile, 

... wenn 'Bedingung' unwahr ist ] 

I'NDIF 

(xler: 

IF Bedingungl [THEN] 

... auszuführende Prograitmteile, 

... wenn 'Bedingung' wahr ist 
[ELSE IF Bedingung2 

... auszuführende Prograntnteile, 

... wenn 'Bedingungl' unwahr 
... und 'Bedingung2' wahr ist.] 

I [ELSE IF Bedingungl 

! ... auszuführende Prograitmteile, wenn 

... alle voherigen Bedingungen unwahr 
... waren, jedoch 'Bedingung!' wahr ist.] 
[gfls. weitere ELSE IF-Abfragen] 

[ELSE 

... auszuführende Prograitmteile, 

... wenn alle vorherigen Bedingungen 
... unwahr waren.] 
l-NDIF 


I Ist ‘Bedingung' wahr,werden die zwischen IF und ENDIF stehen- 
den Programmteile ausgeführt Bei Verwendung der Option ELSE 
werden die darauffolgenden Programmteile ausgeführt, wenn 
'Bedingung' unwahr ist 
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IF-Abfragen können beliebig oft verschachtelt werden.Der optionale 
Zusatz THEN hinter IF ist nur zur Kompatibilität mit anderen 
BASIC-Dialekten gedacht. Er kann vernachlässigt werden. 

Durch den Zusatzbefehl ELSE /Fistes möglich,Verschachtelungen 
folgender Art zu ersparen: 

;? Bedingu'gl 

ELSE 

:? Bedir.gur.g2 

gfls. weitere Verschachtelungen 


EN'DI? 

ENDIF 


Mit ELSE IF sieht dieselbe Struktur so aus: 

:f Bedingung! 

ELSE Ir Bedingung! 
gfls. weitere ELSE lE's 


Ist die Eingangs-IF-Bedingung unwahr und trifft das Programm auf 
eine ELSE IF-Abfrage, deren Bedingung wahr ist, wird nur der 
darunter angegebene Programmblock abgearbeitet und nach des¬ 
sen Ausführung zu dem nächsten Befehl hinter der zugehörigen 
ENDIF-Anweisunggesprungen.Wird die Option ELSE verwendet 
und keine der vorangegangenen Bedingungen war wahr, wird die 
unter ELSE angegebene Programmfolge ausgeführt. 
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\ SELECT 


Auswahl-Bestimmung 

CASE [TO] 

{CA} 

Pall-Entscheidung 

••• 

[CONT] 

{CON } 

j 

Fortsetzungs-Anweisung 

[DEFAULT] 

{ DEFA } 

‘sonst’-Anweisung 

••• 

ENDSELECT 

{ENDS} 

Abfrage-Ende 


I 


SELECT Ebfpr {oder SWITCH Ej^r) 

CASE Constantl [TO Constant2 [,[..] TO [..]]] 

... auszuführende Programnteile, wenn 'Expr' 

... gleich Constantl, bzw. - bei Option TO - 
... wenn 'E3<pr' innerhalb des Bereichs von 
... Constantl bis CQnstant2 liegt. 

[COW] 

ICASE Constantl [,Constant2 [,Constant3 [,..]]] 

... auszuführende Prograitmteile, wenn 'Expr' 

... gleich Constantl oder gleich Constant2 
... oder gleich ConstantS oder ... 

... oder... oder...] 

Igfls. weitere CASE-Entscheidungen] 

[CONT] 

I [DEFAULT oder OTHERWISE oder CASE ELSE 

... auszuführende Prograitmteile, wenn keine der 
vorhergehenden Abfragen zugetroffen hat.] 
I•NDSELECT oder ENDSWITCH 


f Diese Form der Bedingungsabfrage bietet die Möglichkeit zur 
‘Expr'-abhängigen Programmverzweigung (in ‘C: Swhch/Case). 
‘Expr’ kann ein beliebiger numerischer oder alphanumerischer 
Ausdruck sein, dessen Ergebnis gfls. vorher ermittelt wird. Es ist 
auch die Angabe von Variablen oder Konstanten möglich.Wird ein 
alphanumerischer Ausdruck, eine Text-Konstante oder -Variable 
in ‘Expr" verwendet, werden davon nur die ersten vier Zeichen 
zum Vergleich herangezogen. Diese werden dann intern in einen 
4Byte-VVert umgewandelt 

Hinter CASE wird bei Werte-SELECT in ‘Constant..’ ein numeri¬ 
scher Wert oder ein max. vier Zeichen langer Text als Konstante 
oder Stringvariable angegeben,der dann daraufhin überprüft wird, 
ob 'Expr* ihm entspricht Bei Werte-SELECT angegebene Strings 
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werden auf Gültigkeit geprüft, indem der SELECT-Wert mit den 
ASCII-Werten der ersten vier Zeichen desTextes (sofern vorhan¬ 
den) verglichen wird. 

Z.B.: 


cS=SPACE$(4) // 4Byce-Kontrollscring 

FCR i» = C :C 3 // 4 r.al 

PRINT CHRS(IO)'Bitte ASCII-Taste drücken;" 
KEYGET äi // Einzelzeichen holen 

bl = b% + aI’2" (*8) // Zeichen einsortiersn 

{V:c$)={V;b*} // Kontrollstring kopieren 

PRINT BINS(b%)''cS // zur Kontrolle ausgeben 
NEXT i% // nächstes Zeichen 

SELECT b% // eingegebenes Long testen 

CASE ''abcd'' // 'abcd' eingegeben? 

PRINT CHRS(10);''abcd wurde eingegeben'' 

GEFAULT // irgendwas eingegeben! 

PRINT CKR$1101 ;MKL$(b%)'''wurde eir.gegeber.!'' 
ENGSELECT // Abfrage-Ende 

Es wird also intern ein MKL$-,MKI$- oder CHR$-String gebildet 
(je nach Länge des angegebenen CASE-Strings), der dann mit 
'Expr' verglichen wird. Hierbei ist das MSDOS-Datenformat zu 
beachten; der ASCII-Wert des ersten Zeichens des Strings (von 
links ausgehend) liegt im Speicher vorn, also bei einem 4Byte- 
Integer auch 'links' im LO-Byte des LO-Words. 

z.B. bei einem 4-Zeichenstring: 

(ASCII-Wert des I.Zeichens) 

+ (ASCII-Wert des 2. Zeichens) * (2''8) 

+ (ASCII-Wert des 3. Zeichens) * (2'' 16) 

+ (ASCII-Wert des 4. Zeichens) * (2''24) 

ergibt im Speicher: 


4- LOW HIGH -►! 

B/c£ I ßyt« 2 Byte 3 Byte 4 



etc. 

Bei String-SELECT ist ebenfalls nur die Angabe eines maximal vier 
Zeichen langen Strings hinter CASE zulässig. 

Entspricht ‘Expr* der CASE-Auswahl, wird die darauffolgende 
Programmsequenz ausgeführt und daran anschließend zu der 
nächsten Zeile hinter dem zugehörigen ENDSELECT gesprungen. 
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Evtl, weitere CASE-Abfragen derselben Gruppe bleiben dann 
also unberücksichtigt 

Durch die optionale Angabe von TO kann ein ganzer Bereich 
angegeben werden 

Z.B. 

CASE 1 TO 10 
CASE "a" TO "z" 

oder 

CASE ''abc'' TO ''xyz'') 

innerhalb dessen Grenzen 'Expr* liegen muß, um die zugehörige 
Sequenz zu durchlaufen.Wird die erste (kleinere) Bereichsgrenze 
vor TO oder die zweite (größere) Bereichsgrenze nach TO 
weggelassen, wird intern automatisch die kleinstmögliche bzw. 
größtmögliche Grenze angenommen. 

Durch Verwendung eines Kommas als Trennzeichen können auch 
mehrere Einzelangaben zusammengefaßt werden 


Z.B. 

oder 


CASE a,h,j,m 
CASE 1,33,71 


Es ist möglich, die CASE-Bedingungsformate in einer CASE- 
Zeile beliebig zu vermischen 

Z.B. 


CASE TO "b","ABC" TO "XYZ " , 65,6 6, 67 , "Ä" ) 

Wurden sämtliche angegebenen CASE-Anweisungen ohne ‘wahr’- 
Ergebnis passiert kann am Ende des SELECT-Blocks DEFAULT 
eingesetzt werden, was dazu führt daß dann der zwischen 
DEFAULT und ENDSELECT liegende Programmteil ausge¬ 
führt wird (vergleichbar mit ELSE bei IF-Abfragen). 

Wird direkt vor einer CASE-Anweisung am Ende eines 
Verzweigungsblocks die Option CONT verwendet bewirkt dies, 
daß die direkt danach stehende CASE-Abfrage übersprungen 
wird und die dieser CASE-Abfrage unterstellte Sequenz zusätz¬ 
lich zur schon ausgeführtenVerzweigung ebenfalls ausgeführt wird. 
Nach Erledigung dieser Folgesequenz wird - sofern nicht auch 
diese mit CONT abgeschlossen wurde - zur ersten Zeile hinter 
ENDSELECT gesprungen. Dasselbe ist auch mit DEFAULT 
möglich. Steht CONT nicht direkt vor CASE oder DEFAULT, 
wird es als CONT zur Programmfortsetzung nach einem STOP- 
Befehl interpretiert. 


(PiPfe) HotSpot 




96 


Strukturen und Verzweigungen 


Statt SELECT kann auch SWITCH { SWI }, statt DEFAULT 
auch OTHERWISE { OT }, oder CASE ELSE { C ELSE} und 
statt ENDSELECT auch ENDSWITCH { ENDSW } angege¬ 
ben werden. 

SELECT...CASE- und IF...ENDIF-Konstruktionen können be¬ 
liebig - auch beliebig tief - miteinander verschachtelt werden.Wo 
immer möglich.sollten aus Geschwindigkeitsgründen IF...ENDIF- 
Konstruktionen durch SELECT..CASE’s ersetzt werden. 


7.3. UrvTTERPROGRAMME 
UND STRUKTUREN 


DEFFN einzeilige Funktion definieren 

DEFFN Name[(Var,[Var2,...])]=Expr 

'Name' steht für einen beliebigen Funktionsnamen, durch wel¬ 
chen die Funktion mittels des Funktionsaufrufs FN angesprochen 
werden kann. Zur Namensbildung können bereits bestehende 
Variablennamen verwendet werden. Das erste Zeichen kann, 
anders als bei Variablen, auch eine Ziffer sein. 

Mit dem optionalen Zusau ‘Var,Var2...’ können mehrere, durch 
Komma getrennte Variablen angegeben werden,denen ein evtl.mit 
FN übergebener Wert zugeordnet wird. Diese Liste kann auch 
Variablen verschiedener Typen enthalten, solange die mit FN zu 
übergebenden Daten in ihrer Reihenfolge zum gleichenTyp gehö¬ 
ren. 

Innerhalb der DEFFN-Funktion sind nur Operationen erlaubt die 
dem verwendeten Funktionstypen entsprechen. D.h., wenn die 
Funktion als Stringtyp deklariert wurde (z.B. DEFFN Funkti- 
on$=...) sind nur Stringoperationen möglich. Beim Aufruf der 
Funktion werden die z.Zt.aktuellen Inhalte der darin verwendeten 
Variablen angenommen. 

Die Länge einer DEFFN-Funktion wird durch die maximale 
Eingabezeilenlänge im GFA-BASIC-Editor (256 Zeichen) be¬ 
schränkt Reicht diese Länge nicht äus, können aus einer Funktion 
heraus andere Funktionen aufgerufen werden. DEFFN-Funktio- 
nen können an jeder beliebigen Stelle des Programms definiert 
werden, da schon bei Programmstart alle DEFFN-Funktionen 
initialisiert werden. 
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Vorsicht: 

Endlosschleifen, worin sich zwei Funktionen gegenseitig aufrufen, 
können auch durch die Break-Funktion (s. ON BREAK...) nicht mehr 
unterbrochen werden. Funktionen, die sich ohne Abbruchbedingung 
rekursiv selbst aufrufen. haben denselben Effekt 


i FUNCTION {Fu} mehrzeilige Funktion 

••• 

RETURN {RET} Wertrückgabe-Anweisung 

ENDFUNC {ENDF} Funktionsende 

HINCTION Name [ (Varl, Var2%, Var3$, . ..) ] 

... auszuführende Programmteile 
KETURN Back 


y FUNCTION kennzeichnet den Anfang einer selbstdefinierten, 
mehrzeiligen Funktion. Es kann optional eine Liste von lokalen 
Variablen (s. LOCAL) angegeben werden, welche die durch den 
Funktionsaufruf FN übergebenen Daten aufzunehmen haben. 

Dabei ist darauf zu achten, daß die Variablen in dieser Liste der 
Reihenfolge nach den Datentypen dergfls.durch FN übergebenen 
Parametern entsprechen. Es ist auch möglich, durch VAR als 
Abschluß dieser Liste Variablen zu definieren, an die dann durch 
FN eine globale Variable direkt übergeben werden kann (s.VAR). 

‘Nome’istein beliebiger Name,der die Funktion benennt.Soll die 
Funktion alphanumerische (String-) Ergebnisse liefern, ist dem 
Funktionsnamen ein anzuhängen 

z.B. 

FUNCTION NameSI...)). 

Innerhalb der FUNCTION kann - wie bei einer PROCEDURE 
- beliebig viel Programmtext angeordnet werden. Es ist auch 
möglich, FUNCTION-Funktionen sich selbst aufrufen zu lassen 
{Rekursion). 

ENDFUNC bildet den strukturellen Abschluß einer FUNCTION. 
Im Gegensatz zum PROCEDURE-RETURN wird diese 
Endmarkierung nicht als Rücksprunganweisung interpretiert. Aus 
FUNCTION-Funktionen ist nur ein Rücksprung durch 'RETURN 
Back’ möglich, was nicht mit dem Prozedurende RETURN 
verwechseln werden darf. Trifft das Programm innerhalb einer 
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FUNCTION auf die Rücksprunganweisung RETURN, wird der 
hinter RETURN stehende Wert, Ausdruck oder Variableninhalt 
‘Back’ als Funktionsergebnis an das aufrufende Programm zu¬ 
rückgegeben und zu der dem Aufruf folgenden Zeile gesprungen, 
bzw. - falls die Funktion aus einer Befehlszeile heraus aufgerufen 
wurde - mit der Befehlsausführung hinter dem Funktionsaufruf 
fortgefahren. Innerhalb der Funktion geänderte globale Variablen 
oder Felder können in diesem Fall gfls. schon bei der Abarbeitung 
des Zeilenrestes berücksichtigt werden. 

Es können beliebig viele'RETURN Back'-Anweisungen innerhalb 
einer FUNCTION angegeben werden(z.B.innerhalb von IF..ELSE 
IF..ELSE..ENDIF-Abfragen). 

Z.B.: 

SCREEN 16 
COLOR 14 
FOR i%=0 TO 72 

POLYLINE LEN(l3cbox$ (300,180,140,100, ... 

...360-1**6,3,3))/4,px%(),py%() 

POLYLINE LEN(9cbox$(300,180,220,160_ 

...1**4+240,5,2))/4,px*(),py*() 

NEXT 1* 

FUNCTION cbox$(xp*,yp*,xr*,yr*,wl*,e*,m*) 

' Berechnet ein beliebiges gleichmäßiges 
' Vieleck und liefert die Eck-Koordinaten 
' ln einem Integer-Feld zurück 

' xp* = X-Mlttelpunkt 

' yp* = Y-Mlttelpunkt 

' xr* = X-Radlus 

' yr* = Y-Radlus 

' wl* = Startwinkel 

' e* = zu berechnende Eckenanzahl 

' m* = Anzahl zu zeichnender Ecken 

LOCAL j*,l*,bk$ 

ERASE px*(),py*() 

DIM px*(e*),py*(e*) 

FOR l*=wl* TO 360+wl* STEP 360/e* 
px*(j*)=xp*+(SINQ(1*)*xr*) 
py*(j*)=yp*+(COSQ(l*)*yr*) 
bk$=bk$+MKI$(px*(]*))+MKI$(py*(j*)) 

IF j*=>m* THEN RETURN bk$ 
j* + + 

NEXT 1* 

ENDFÜNC 


HotSpot 



Strukturen und Verzweigungen 


99 


PROCEDURE {PRO} 

Unterprogramm 

•* 

RETURN {RET} 

Rücksprung 

PROCEDURE Nane [([Varl,Var2%,Var3$,VAR Var4,...])] 

... auszuführende Programmteile 


RETURN 



PROCEDURE definiert den Anfang eines Unterprogramms, Es 
kann optional eine Liste von lokalen Variablen (s. LOCAL) ange¬ 
geben werden, welche die durch den Prozeduraufruf GOSUB 
übergebenen Daten aufzunehmen haben. Dabei ist darauf zu 
achten, daß die Variablen in dieser Liste der Reihenfolge nach den 
Datentypen der gfls. durch GOSUB übergebenen Parametern 
entsprechen. Es ist auch möglich, durch VAR als Abschluß dieser 
Liste Variablen zu definieren, an die dann durch GOSUB eine 
globale Variable direkt übergeben werden kann (s.VAR). 


'Name’ ist ein beliebiger Name, der das Unterprogramm be¬ 
nennt. Innerhalb der Routine kann beliebig viel Programmtext 
angeordnet werden. Es ist auch möglich, Prozeduren sich selbst 
aufrufen zu lassen (Rekursion). 

RETURN bildet den Abschluß einer Prozedur und bewirkt eine 
Fortseuung des Programms mit der auf den zugehörigen GOSUB- 
Befehl folgenden Zeile. 

Z.B.: 

SCREEN 16 
COLOR 14 

FOR i%=0 TO 90 STEP 3 

cbox(200,80,ii*2,i%,il,6,vec$) 

POLYLINE LEN(vec$)/4,px%11,pyM) 

NEXT it 

cbox|520,130,50,30,0,12,vec$) 

FOR i%=0 TO LEN(vecS)-l STEP 4 

PCIRCLE INT{V:vecS+i»},INT{V;vecS+ii+2},6 
NEXT i» 

PROCEDURE cbox(xp%,ypi,xr%,yrS,wil,e%,VAR bk$) 

' Berechnet ein beliebiges gleichmäEiges 
' Vieleck und liefert die Eck-Koordinaten 
' als MKI$-Vector in einem Textstring zurück 
$ 

' xp%/yp%/xr%/yr4/wi4/e% = s. unter FUNCTION 

' bk$ = Stringvariable, die bei Rückkehr den 
' MKI$-Koordinaten-String aufnimmt. 


C^lqg) HotSpot 




Strukturen und Verzweigungen 


LOCAL jt,i% 

CLR bk$ 

ERASE px«(),py»() 

DIM px%(e%),py%(eil 
FOR i%=wi% TO 360+wii STEP 360/e% 
pxl(ji)=xpi+(SINQ(ii)*xri) 
pyi(ji)=ypi+ICOSQIii)*yr%) 
blc$=blcS+MKI$(pxi(ji) )+MKI$(pyi( ji)) 

3 % + + 

NEXT ii 
RETURN 


TYPE {TY} 

Typenstruktur definieren 

ENDTYPEiENDT} 

Typenstruktur-Ende 

TYPE Typenname: 

- ELEMENTE-TYP-1 Eleirentnaiiel 

- ELEMENTE-TYP-2 Elementnaine2 

- etc. 

ENDTYPE 

[Typenname :Variablennaine. ] 

1 


TYPEs sind überaus wichtige Strukturelemente, (in PASCAL: 
’records’, in C: ‘structures’), die es ermöglichen, komplexe 
Datenstrukturen nach den verschiedensten Notwendigkeiten selbst 
zu erstellen. Die zusammengehörigen Elemente eines so erstellten 
Datentyps sind dann einerseits leicht unter ihrem jeweiligen 
"Varlablennamen/ und 'E/ementnamen’ansprechbar und kön¬ 
nen andererseits jederzeit für die vielfältigsten Aufgaben als ein¬ 
heitlicher Datensatz behandelt werden. So kann z.B. ein solcher 
Strukturblock anhand eines einzigen BMOVE- oder BSAVE- 
Befehlsan beliebige Positionen im RAM oderauf dem Festspeicher 
verfrachtet werden. Dabei ist es wichtig, zu verstehen, daß die 
Declaration einerTYPE-Struktur selbst noch nichts über die Lage 
dieser Struktur im Speicher aussagt. 

Wer sich schon mit dem Einsatz von 'Random-Access-Dateien’und 
dem FIELD-Befehl vertraut gemacht hat, wird den Sinn einer 
TYPE-Struktur sicher leicht nachvollziehen können. Auch in der 
objektorientierten Programmierung sind Datenstrukturen - z.B. 
für 'DTP’-, “Window’- oder auch 'CAD/CM1-Objekte - Gang und 
Gäbe. 

Der Typname:' einer TYPE-Struktur kann in beliebiger Form 
(wie ein PROCEDURE- oder FUNCTION-Name) vergeben 
werden. Er endet zur internen Kennzeichnung einer TYPE-Struk¬ 
tur mit einem Doppelpunkt. 
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Vor dem ’ELEMENTE-TYP’ ist ein Bindestrich und ein darauffol¬ 
gendes Leerzeichen zu placieren. Hinter dem ‘ELEMENTE-TYP’ 
folgt mit dem Abstand von mindestens einem Leerzeichen der 
dazugehörige ‘Elementname*. Dieser 'Elementname* gehört 
ausschließlich zu 'seiner' TYPE-Struktur und kann nur einmal 
vergeben werden. 

Zur Definiton der einzelnen 'ELEMENTE-TYPEN' stehen folgende 
Datenformate zur Verfügung: 


+- - 

Art 

-+ 

1 Format \ 

-BYTE 

1 8 Bit-Byteformat | 

1 vorzeichenlos (Kennung |) { 

-UBYTE 

1 0 bis 255 1 

-CARD 

1 16Bit-VVortformat j 

- DWORD 

1 vorzeichenlos (unsigned) | 

- USHORT 

1 0 bis 65535 | 

-WORD 

1 16Bit-Wortformat | 

jvorzeichenbehaftet (Kennung &) | 

- SHORT 

1 -32768 bis 32767 | 

•1. 1 

-INT 


-LONG 


- SINGLE 

-, 

1 4Byte (einfach genau) | 

|lH-RießkofTTmaformat (Kennung#) | 

- DOUBLE 

1 8Byte (doppelt genau) | 

- CHAR(n) 

1 beliebige Zeichenkette | 

- CHAR*n 

1 mit einer maximalen Länge j 

- STRING(n) 

1 von j 

•STRING*n 
+_ 

1 Zeichen (Kennung $) j 

-+-+ 


Bei Verwendung von TYPE-Variablen der Art ’CHAR* oder 
‘STRING*, bzw. der Art ‘SINGLE* und ‘DOUBLE* muß die 
Typenkennung 'J' bzw.W dem Variablennamen angefügt werden. 

Sollen die Struktur-Elemente im späteren Programm unter ihren 
‘Elementnamen* wie normale Variablen als intern verwaltete 
Variablen direkt angesprochen werden können, muß vorher ein 
TYPE-’Voriab/ennome’ bestimmt werden. Dazu wird im An¬ 
schluß an dieTYPE-Definition hinter Typnome;'der dazugehöri¬ 
ge ‘Variablenname.* deklariert. Er erhält als Kennung einen 
abschließenden Punkt 
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Z.B.; typname: var iablenname. 

oder DIM typname : var 1 .,typname : var2.,... 

Von nun an existiert faktisch ein Speicherbereich mit der spezifi- 
schenTYPE-Lange.der unter dem angegebenen‘voriob/ennomen.' 
(Punktendung beachten!), bzw. unter dessen Variablen- 
‘elementnamen’ ansprechbar ist 

Z.B.: Variablenname.elementname$=' 'Text' ' 
oder txt$=variablenname.elementname$ 
oder PRINT Variablenname.elementname$ 

Aus der Verwendung des Punktes als Kennzeichnung für TYPE- 
Variablen bzw. die Elemente ergibt sich logisch, daß die Verwen¬ 
dung eines Punktes innerhalb normaler Variablennamen nicht 
zulässig ist 

Statt des Struktur-Zugriffs per ‘Variablenname.’ kann auch ein 
Zeiger auf den Anfang einer entsprechenden Struktur mit dem 
nachfolgenden Punkt und dem wiederum darauf folgenden 
‘Elementnamen' angegeben werden. 

Z.B.: {adr}.element=expr 
oder var={adr}.element 

Um die spätere Ansprechbarkeit der entsprechenden TYPE-Ele- 
mente über ihren ‘Elementnamen’ im Programm möglichst 
einfach zu gestalten, sollte darauf geachtet werden, daß 
‘Variablenname.' und ‘Elementname’ kurz gehalten werden. 
Bei häufiger Verwendung von TYPEs erspart man sich so viel 
Tipperei. 

Auch die Einrichtung vonTYPE-Feldern ist möglich, indem man ein 
Text-Feld dimensioniert zu Beginn einmal über eine Init-Schleife 
mit den korrespondierenden Elementlängen vorbereitet und die 
zusammengehörigen TYPE-Blöcke in einem solchen Feld unter- 
bringt.Das einzige Problem besteht dann darin,daß die Startadresse 
desiextfeldes aufgrund der dynamischen Stringspeicherverwaltung 
evtl, nicht konstant bleibt und vor Direkt-Zugriffen auf eine TYPE 
(z.B. (adr) .var) eine ‘Carbage Collection' mit‘FRE(0)’ ausge¬ 
führt werden muß.Anschließend kann dann durch VARPTRQ die 
Startadresse des ersten Strukturelements und damit die 
Startadresse der gesamten TYPE ermittelt werden. Eine weitere 
Möglichkeit besteht darin,die Startadresse desTextfeld-Elementes 
direkt anzugeben (z.B. {V:textfeld$ (0)} .var ) 
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z.B. 


TYPE irgendwas: 

- CHAR*20 txt$ 

- LONG 11 

- LONG 12 

- CARD erd 

ENDTYPE 

DIM feldSI20) 
FOR 11=0 TO 20 


// Beispiel-Deklaration 
// z.B. 20 Zeichen Text 
// z.B. 

// 2 Longs 

// z.B. 1 DWORD 
// TYPE-Ende 
// z.B. 21 Elemente 
// alle Elemente 


feld$(i%)=STRING$(LEN(irgendwas:),0)//'nullen' 


NEXT i% 

~FRE(0) // Garbage-Collection 

{V:£eld$(0)).11=12345 // irgendeine Zuweisung 
Mr. fol / 1 \ 1 1 1 - fw. f 1 ( n 1 l // 


wert&=AND({V:£eld$(0)) .11-t 
{V:feld$(l)).crd=wert& 

FOR i*=0 TO 1 
PRINT {V:feldS(i%)}.11 
NEXT ii 

PRINT {V:£eld$(l)).erd 
OPEN “0",*1,"MEINTYPE.REC 
FOR i%=0 TO 20 


{V:£eld$(ll).ll,SFFFF)// Be- 
// rechnung 

// z.B. die ersten zwei 
// Elemente ausgeben 

// DWORD aus Element '1' 
// z.B. komlettes 
// TYPE-Feld in Datei 


BPDT *1 ,V: £eld$ (il), len( irgendwas;) // ableger. 
NEXT i% 

CLOSE #1 


Um sich nicht von der dynamischen Speicherverwaltung ärgern 
lassen zu müssen, kann man statt eines Textfeldes natürlich auch 
ein entsprechend langes Integerfeld verwenden, das dann statisch 
behandelt werden kann. Nur hat man hier wiederum die Proble¬ 
matik der korrekten Indizierung, was aber mit etwas ‘KnoffHoff 
ohne weiteres zu bewältigen ist: 


TYPE irgendwas: // 

- CHAR*20 txt$ // 

- LONG 11 // 

- LONG 12 // 

- CARD erd // 

ENDTYPE // 

slenl=LEN(irgendwas:) // 
DIM £eld»((slenl«211/4+4 
' // 

' // 

' // 

ARRAYFILL £eld% 0,0 // 

' // 

' // 

adr%=V:£eldU0) // 

{adr%^0*slen%).11=12345 

' // 

{adrS+l*slen%}.ll={adr%+ 
' // 

wert&=AND((adrI+O'slenI) 
' // 

' // 

{adr%+l*slenl).crd=werts 
FOR il=0 TO 1 


Beispiel-Deklaration 
z.B. 20 Zeichen Text 
z.B. 

2 Longs 
z.B. 1 DWORD 
TYPE-Ende 

TYPE-Länge ermitteln 
] // INT-Feld mit 
Gesamtlänge dimmen (geteilt 
durch vier, weil ein INT 
4 Bytes lang ist) 

ARRAYFILL ist hier eigentlich 
nicht nötig, da nach einem DIM 
sowieso alle Elemente Null sind 
Startadresse des Puf£ers 
// z.B. irgendeine Zuweisung 
an '11' im Element 0 
0*slen% 1.11^2 //z.B. irgendeine 
Zuweisung an '11' im Element 1 
.ll+{adr*+l*slenl).11,$FFFF) 
z.B. irgendweine Berechnung 
mit '11' aus Element 0 und 1 
// Zuweisung an 'erd' in Element 1 
// z.B. die ersten zwei 
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PRINT {adrS+i%*slen%).11 // Elemente ausgeben 
NEXT i% 

PRINT {adr%+l*sleni)-crd // z.B. 'erd' aus Element 1 
' // ausgeben 

BSAVE "MEINTYPE.REC",adr«,slenl // z.B. Xomlettes TYPE- 
' // Feld in Datei ablegen 

Es ist auch möglich, TYPE-Variablen untereinander zuzuweisen. 
Dazu müssen die einzelnen Variablen allerdings dieselbe Struktur 
aufweisen. 


Z.B. 


TYPE irgendwas: 

- CHAR(6) txt$ 

- LONG Ivar 

- BYTE bvar 
ENDTYPE 

irgendwas:variablel. 
irgendwas:variable2. 
variablel.txtS=''*TEXT 
variable 1.lvar=123456 
variablel.bvar=255 
variable2.=variablel. 


// Beispiel-Deklaration 
// 

// 

// 


z.B. 6 Zeichen Text 
z.B. 1 Long 
z.B. 1 Byte 


// TYPE-Ende 


Die Adresszeiger-Funktionen des GFA-BASIC sind auch aufTYPE- 
Variablen anwendbar: 


adrl=VARPTRityp_var.) 
adr%=V:typ_var. 
adrl=ARRPTRltyp_var.) 
adr%=’typ_var. 

und auch direkte Speicherzugriffe im TYPE-Format sind möglich: 


TYPE irgendwas: // Beispiel-Deklaration 


- CHAR*20 

txt$ 

// 

z.B. 20 Zeichen Text 

- LONG 

11 

// 

z.B. 

- LONG 

12 

// 

2 Longs 

- CARD 

erd 

// 

z.B. 1 UWORD 

ENDTYPE 


// 

TYPE-Ende 

irgendwas: 

:typ_var. 



slen%=LENi 

[ irgendwas; 

) // 

TYPE-Länge ermitteln 

DIM feldli 

1 (slen»*21) 

/4 + 41 

// INT-Feld dimmen 

adr4=V:feld*(0] 

// 

Startadresse des Puf: 


... Programm 
' z.B. : 

typ_var.=irgendwas:(V:feldl(0)) 

' TYPE-PEEK vom Speicher in eine TYPE-Variable 
' derselben Struktur 
' -> entspricht: var4=LPEEK(adr%l 
' z.B. : 

irgendwas:{V:feld%(0))=typ_var. 

' TYPE-POKE aus einer TYPE-Variablen in einen 
' Speicherbereich mit derselben Struktur 
' -> entspricht: LPOKE adr%,var* 
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' z.B. ; 

irgendwas:{V:feld*11)} = irgendwas:{V:feldl(0)) 

' TYPE-MCVE aus einem Speicherbereich in einen 
' anderen Bereich mit derselben Struktur 
' -> entspricht: BMOVE adrll, adr2%, sler.4 


LOCAL {Loc} Lokale Variablen deklarieren 


LOCAL var [,var2%,var3$,...] 

LOCAL var=wert [, var2%=wert, var3$=' 'Text 


Es können innerhalb einer PROCEDURE oder FUNCTION 
Variablen als lokale Variablen deklariert werden (s. Beispiel zu 
FUNCTION). Diese können ausschließlich in der PROCEDURE 
oder FUNCTION verwendet werden, in welcher sie deklariert 
wurden. Nach Prozedur- bzw. Funktionsende werden sie wieder 
aus dem BASIC-Gedächtnis gelöscht. 


Wird außerhalb dieser Prozedur/Funktion eine globale Variable 
mit gleichem Namen benannt,so ist GFA-BASIC in der Lage,diese 
von denen durch LOCAL deklariertenVariablen zu unterscheiden. 
Werden mehrere Variablen deklariert, können sie unterschiedli¬ 
chen Typs sein und sind durch Kommata zu trennen. 


Es ist auch möglich, direkt hinter der LOKAL-Deklaration eine 
bzw. mehrere Zuweisung(en) zu placieren. 


7.4. SPRÜNGE UND 

VARIABLENÜBERGABE 


FN {@} DEFFN-ZFUNCTION-Aufruf 

Var=EN Funktionsname [(Paral,Para2%,Para3$,...)] 


Wurde bei DEFFN oder bei FUNCTION eine Variablen-Liste 
vorgegeben, müssen beim Funktionsaufruf in ‘Paral, Para2%, 
Para3 $,- durch Kommata getrennt - ebenso viele und dem 
jeweiligen Variablentyp entsprechende Werte, Strings etc. überge¬ 
ben werden (s. Beispiel zu FUNCTION). 

Die Ergebnisse einer Funktion können entweder direkt ausgege¬ 
ben (z.B. PRINT @Funk), einer dem Funktionstyp entsprechen¬ 
den Variablen übergeben (A%=@Funk), in Bedingungsabfragen 
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ausgewertet (z.B. IF @Funk. . .), in arithmetische Konstrukte 
oderText-Ausdrücke eingebunden 

z.B. DIV Varl, (Expr+Var2) / (Constant*@Funk) 
oder ignoriert werden (z.B. VOID @Funk). 


GOSUB { GO oder @ } PROCEDURE-Aufruf 

GOSUB Prozedumame [ (Paral, Para2%, Para3$,...) ] 

■ ‘Prozedurname’ gibt den Namen der PROCEDURE an,zu der 
^ verzweigt werden soll. Es können optional beliebig viele Parameter 
an die Prozedur in ‘Paral, Para2%, Para3$, übergeben 
werden. Dabei ist darauf zu achten, daß Anzahl,Typ und Listenplatz 
der Parameter mit Anzahl,Typ und Listenplatz der in der Prozedur 
benannten Aufnahmevariablen übereinstimmen (s. Beispiel zu 
PROCEDURE). 

Die Angabe von @ bzw. GOSUB vor dem Prozedurnamen ist in 
den meisten Fällen sogar überflüssig. Es braucht nur der 
Prozedurname (gfls.mit der Parameterliste) angegeben zu werden 
(s. Beispiel zu PROCEDURE).SindVerwechslungsmöglichkeiten 
mit Befehlsnamen möglich (z.B. @Return oder @Run), ist die 
Angabe von @ bzw. GOSUB allerdings zwingend notwendig. 


GOTO {GOT} 

unbedingter Sprung zu einem Label 

GOTO Label 



P Es wird zu einer beliebigen Programmstelle gesprungen, die vor- 
^ her durch ein sogenanntes ‘Label’ (Programmarke) zu definieren 
ist. GOTO-Sprünge in oder aus FOR/NEXT-Schleifen oder 
PROCEDUREs sind nicht möglich. 

‘Label’ ist ein beliebiger Name, der zur Markierung eines 
Sprungziels für GOTO- oder RESTORE- Anweisungen dient. Er 
kann an jeder beliebigen Stelle im Programm placiert werden und 
ist durch einen nachgestellten Doppelpunkt zu kennzeichnen. 

Z.B.: 

a=l 

IF a THEN GOTO marke // Sprung zum Label 

? '''a' war Null!'' 

marke: // labelname 'marke:' 

? '''a' ist ungleich Null!'' 
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oder: 

RESTORE marke 
FOR i»=0 TO 4 
READ a 
NEXT il 
marke: 

DATA 1,2,3,4,5 

In modernen BASIC-Dialekten, die - wie GFA-BASIC - auf der 
Grundidee der modularen und strukturorientierten 
Programmierung basieren, sollte der Befehl GOTO tunlichst 
vermieden werden.SeineVerwendung kennzeichnet den‘Spoffiett/’- 
Programmierer, der es anhand dieses unscheinbaren GOTO- 
Befehls spielend fertigbringt, selbst ein kleines 2 oder 5 Kbyte- 
Progrämmchen so unübersichtlich zu gestalten,das später bei evtl, 
notwendigen Änderungen niemand (noch nicht einmal er selbst) 
etwas damit mehr anzufangen weiß Außerdem gilt es als erwiesen, 
daß gerade der GOTO-Befehl - und die mit ihm verbundene 
Denkweise - zu einer erheblichen Steigerung der logischen 
Fehlerquoten führt. 

Der gerade Weg ist eben doch meist auch der kürzere - und das 
heißt: modulare Programmierung per PROCEDURE und 
FUNCTION. 


EXPROC { EXP } unbedingter Sprung zum Prozedur-Ende 

EXPROC 


Dieser überaus sinnvolle Befehl bewirkt an jeder beliebigen 
Programmstelle innerhalb einer Prozedur,daß direkt zur nächsten 
RETURN-Anweisung gesprungen wird. 


Statt einer IF-Abfrage in Form von: 


PROCEDURE xyz 

IF bedingung wahr 

...auszuführende Programmeeile 
ENDIF 
RETURN 


kann die folgende Variante eingesetzt werden: 

PROCEDURE xyz 

IF bedingung unwahr THEN EXPROC 
...auszuführende Programmteile 
RETURN 


In FUNCTIONS ist dieser Befehl nicht sinnvoll einseubar, da 
über den hier notwendigen ‘RETURN Rückgabe '-Befehl hinweg 
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ohne Funktionsergebnis direkt zum aufrufenden Programm 
zurückgesprungen wird. 


ON ... GOSUB bedingte Verzweigung zu Prozeduren 

I CN Wert GOSUB Procl [,Pr oc2,Proc3,...] 

Verzweigt je nach übergebenem Wert zu einer der Listen-Proze- 
^ duren. 

Die Verzweigung erfolgt nach folgendem Schema: 

INT(‘Wert’) =1 -> verzweige zu Proc I 

INT(‘Wert’) =2 -> verzweige zu Proc2 
INT(‘Wert’) =3 -> verzweige zu Proc3 
usw. 

Ist'Wert'größerals dieAnzahl der angegebenen Prozeduren oder 
Null, wird das Programm in der auf ON...GOSUB folgenden Zeile 
fortgesetzt.Bei sämtlichen ON/GOSUB-Varianten des GFA-BASICs 
(ON ERROR GOSUB... etc.) sind nur Prozeduren als Ziel 
erlaubt, die keine Parameterliste erwarten. 


ON BREAK [CONT] [GOSUB] Break-Funktion behandeln 

Ol BREAK [GOSUB] Prozedur 
™ BREAK 
CM BREAK CONT 



GFA-BASIC verfügt lobenswerter Weise über eine Funktion, die 
es erlaubt, das Programm an jeder beliebigen Programmstelle zu 
unterbrechen. Dazu werden gleichzeitig die Tasten <Strg> und 
<Untbr> (bzw. bei älteren Tastaturen <Ctrl> und <Break>) ge- 
drücktDiese Unterbrechungsfunktion kann durch den ON BREAK- 
Befehl behandelt werden. 


Im ersten Fall (ON BREAK GOSUB...) verzweigt das Programm zu 
der angegebenen ‘Prozedur’, sobald nach Ausführung dieses 
Befehls im Programmlauf die o.g. Break-Funktion angewandt wird. 
In der ‘Prozedur’ kann dann entsprechend auf die Unterbrechung 
reagiert werden (GOSUB kann weggelassen werden). 

Mit ON BREAK wird nach ON BREAK GOSUB... oder nach ON 
BREAK CONT die Break-Standardreaktion aktiviert. Das heißt, 
das Programm wird - wie direkt nach Programmstart - bei Betäti¬ 
gung der Tastenkombination <Strg><Untbr> sofort beendet. 
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ON BREAK CONT bewirkt dagegen, daß das Programm bis zum 
nächsten ON BREAK oder ON BREAK GOSUB bzw. bis zum 
Programmende nicht mehr durch die Break-Funktion unterbro¬ 
chen werden kann. Diese Variante sollte während der 
Programmentwicklung mit Vorsicht genossen werden. Den mei¬ 
sten von Ihnen wird es sicher in unangenehmer Erinnerung sein, 
wenn sich ein Programm in einer Endlosschleife ‘ou^öngt’, weil z.B. 
die Ausstiegsbedingung falsch formuliert war. 


VAR 

direkte Variablen-Übergabe 

PROCEDURE Name![Var,. 

. . , ]VAR Re£l[,Re£$, . . .]) 

FUNCTION Name![Var,.. 

., ]VAR Re£l[,Rfi£$, . ..]) 


Innerhalb der Kopfzeilen von PROCEDUREn und 
FUNCTIONen können in der Liste der lokalen Aufnahme- 
Variablen (sog. Ca//ßyVo/ue-Variablen) durch VAR auch Variablen 
direkt an die Prozedur/Funktion übergeben werden (sog. 
Cfl//ßyRe/erence-Variablen) übergeben werden. 

Der in derVAR-Liste angegebeneVariablenname steht dann inner¬ 
halb der PROCEDURE bzw. FUNCTION stellvertretend für 
die durch GOSUB bzw. FN übergebene Referenz-Variable. Es ist 
tatsächlich dieselbe Variable, die für die Dauer der Prozedur bzw. 
Funktion dann eben nur den in der Kopfzeile angegeben Namen 
trägt. Inhalte globaler Variablen mit demselben Namen bleiben 
dadurch unverändert, der prozedur- bzw. funktionsinterne Name 
hat also bis zum Rücksprung in das Hauptprogramm lokalen 
Charakter. 


Z.B.: 

al=10,bl=20 

PRINT V:al,V:bl // globale Variabien-Adressen 
@Unterprog(aI) // Variable al direkt übergeben 

PRINT al''bl // al enthält nun den Wert 100 
PROCEDURE UnterprogIVAR bl) // Die Variable al 
// wird jetzt innerhalb der Routine zu der 
// lokalen Variable bl. Die globale Variable 
// bl bleibt war erhalten, ist aber in der 
// Prozedur nicht ansprechbar. 
bl=100 // bl wird lokal angesprochen 

PRINT V:bl // Die Variablenadresse der 
// lokalen Variable bl ist mit 

// der Variablenadresse der 

// globalen Variable al identisch. 

RETURN 

Es ist dabei zu beachten, daß die beiden korrespondierenden 
Variablennamen im Prozedur-Aufruf und im Prozedur-Kopf dem 
gleichen Typ angehören (s.VARIABLEN-TYPEN). 
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Es ist auch möglich, Felder direkt an ein Unterprogramm zu 
übergeben: 


xl=4 // Feldgröße 

DIM a4(x|) // Feld dimensionieren 

FOR il=l TO xl // alle Elemente 

a4(il)=il // mit Wert belegen 

NEXT il 

Sünterproglx I ,a4 ())// Aufruf 
FOR il=l TO xl // alle Elemente 

FRINT aidll // neue Werte ausgeben 

NEXT il 

PRCCEDURE Onterprogixx!,VAR aail))// Feld-VAR ! 
// Globalfeld aSt () ist jetzt Feld aa&O 
FOR jl=l TO xxl // alle Elemente 
PRINT aa&ljl) // alten Wert ausgeben 
aai(jI)=jI*TRUE// mit neuem Wert belegen 
NEXT j I 
RETURN 


7i;. EXTERNE UNTERPROGRAMME 
UND INTERRUPTS 


CALL {CAL} Maschinenprogramm aufrufen 

^ CALL Adressvar% [(Parameterliste)] 

CALL (Adresse) [ (Paraireterliste) ] 


1 1 ’AdressvarX’ ist eine 4Byte-lntegervariable, welche die 
^ Startadresse der aufzurufenden Maschinenroutine (assembliert 
oder Ocompiliert) enthält. Soll die Startadresse direkt oder als 
numerischer Ausdruck angegeben werden.so ist die ‘(Adresse)’ in 
Klammern zu setzen. Beachten sie hierbei bitte die mögliche 
Adressverschiebung (s. Anmerkung unter DIM). 

Bei dem Aufruf handelt es sich um einen sog. ‘far call’. Bei C- 
compilierten Programmen ist daher darauf zu achten, daß unter 
'model Zorge'compiliertwird und daß generell die Maschinenroutine 
durch eine retf’-Anweisung wieder in Richtung BASIC-Programm 
verlassen wird. 

‘Parameterliste’ enthält optional, durch Kommata getrennt, die 
evtl, zu übergebenden Parameter. Diese werden wie bei INTRO 
den Registervariablen direkt zugewiesen. 

z.B. 

adresse4 = $3ea: $0 

CALL adresse%(_AL=$e6,_Dl=l,_SI=$ff) 


HotSpot (§1^ 



Strukturen und Verzweigungen 


oder 

_AX=$e6 
_DI = 1 
_SI=$ff 
CALL ($3ea:$0) 

Stringparameter oder größere Parameterblöcke sind hier 
vorzugsweise mit ihren jeweiligen Anfangsadressen (z.B. Segment 
in _AX und Offset in _BX) zu übergeben. 

Beim Rücksprung zum BASIC bleiben die aktuellen Register- 
Inhalte erhalten. Das heißt also, daß in den Registern AX, BX etc. 
auch Werte an das BASIC-Programm zurückgegeben und dort 
ausgelesen werden können. 


C:() Maschinenprogramm nach C-Konvention aufrufen 

~C:Adressvar% [(Parameterliste)] 

Vcir=C:A(±:essvar% [ {Parameterliste) ] 



Es ist in der 4Byte-lntegervariablen ‘Adressvar%‘ die Adresse 
einer Maschinen-Routine und optional gfls.eine Liste numerischer 
Parameter in Klammern zu übergeben. Die Übergabe erfolgt nach 
üblichen C-Konventionen in umgekehrter Reihenfolge auf dem 
Stack. Der letzte Parameter wird also zuerst auf dem Stack 
abgelegt, wodurch der erste Parameter dann ‘obenauf’ liegt. 


Sind keine Parameter zu übergeben, ist eine Leerklammer '()’ zu 
verwenden. Sollen 32 Bit-Parameter übergeben werden, ist dem 
jeweiligen Parameter das Kürzel L* voranzustellen. Sonst gilt als 
voreingestelltes Parameterformat das Word (16 Bit). 


Z.B. 


~C:(L:Paral%,Para2i,L:V:Para4S) 


erzeugt folgende Stack-Situation; 


push bp 
mov bp,sp 
push di 


bp retten 

Stackpointer nach bp laden 
di retten 


push si ; si retten 

les di,[bp+6] ;1. Parameter 
mov ax,[bp+10];2. parameter 
les si,ibp+12i;3. parameter 
... etc. 

... Maschinenprogramm 
pop si ; si rücksetzen 

pop di ; di rücksetzen 

pop bp ; bp rücksetzen 


L:Paral%' (long) 
'Para2Si' (word) 
' L:V:Para3$'(long) 


retf 


; nür 'retf' verwenden !! 
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Eine gfls. notwendige Restauration der Register bei Rücksprung 
obliegt dem Aufrufer bzw. sollte innerhalb der Maschinenroutine 
erfolgen. 

Nach Rückkehr kann der Inhalt von DX (=Segment bzw. Hl- 
Word) und AX (=Offset bzw. LOW-Word) als 4Byte-Wert ent¬ 
weder direkt ausgegeben (PRINT C: Var % ()), einer Variablen 
übergeben (A%=C :Var% ()) oder in Bedingungsabfragen und 
ähnlichen Konstruktionen eingebunden werden (IF C: Var% {)). 
Bei dem Aufruf handelt es sich - wie bei CALL - um einen sog.‘for 
call’. Beachten Sie dazu bitte die Anmerkung unter CALL. 


INTRQ MSDOS- oder BlOS-lnterrupt aufrufen 

-INTRINuniTier [,_AH=Unterfunktion,Reg=Wert, ... ] 


■ Ein PC verfügt im allgemeinen über eine schier unüberschaubare 
Fülle an System-Funktionen und sonstigen Interrupt-Routinen. 
Mit INTRQ ist es möglich, diese - oftsehr nützlichen - systeminternen 
Unterroutinen für eigene Programme nutzbar zu machen. Dazu 
wird in ‘Nummer’ der übergeordnete Interrupt-Index und gfls. in 
Register _AH oder _AX die Nummer der gewünschten 
‘Unteifunkt/on'.Weitere benötigte Funktionsparameter können 
ebenfalls in der ‘Reg=Wert’-Liste übergeben werden. 

Interrupts benötigen vor ihrem Aufruf die Belegung verschiedener 
System-Register. Dies kann erfolgen, indem vor dem entsprechen¬ 
den INTR()-Aufruf den betreffenden Registern mittels der dazu 
reservierten GFA-Variablen ein Wert zugewiesen wird: 


_AH=8 

1 oder: 

_AH=8,_BH=1 

1 oder: 

_BH=1 

_BH=1 


-INTR(16) 


~INTR(16,_AH=8) 

-INTRdo) 






Es ist jedoch auch möglich, eine Registerliste zu übergeben, in 
welcher die Registerbelegungen mit dem INTR()-Aufruf erledigt 
werden; 


--:NTR($33,_AX=4,_CX=100,_DX=100) 

Bei vielen Interrupts werden in den verschiedenen Registern - je 
nach Interrupt variierend - auch Werte zurückgegeben. Diese 
können dann ebenfalls überdie reservierten GFA-Registervariablen 
ausgelesen werden (z.B. ' Rückgabe' =_BL). 

Informationen über die verschiedenen Interrupts und die jeweils 
vorher zu belegenden Register, sowie die möglichen Rückgabe- 
Register finden Sie in der gängigen PC-Literatur. Ich verwende 
dazu das 'PCIntern 2.0’-Buch von MichaelTischer (DATA BECKER), 
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das mir auch in anderen Fragen immer wieder wertvolle Dienste 
geleistet hat. Wie bereits im Vorwort angekündigt, wird ca. im Mai 
1992 ein weiteres Buch zum 'GFA-BASIC für MSDOS' vom 
COLID-Verlag erscheinen. In diesem Buch wird dann auch ein 
Auflistung der wichtigsten und nützlichsten DOS-, BIOS-, EGA/ 
VGA- und EMS-Interrupts enthalten sein. 


MONITOR { MON } Breakpoint-Interrupt $3 auslösen 

MmiTOR [(Parameter)] 


1 Mit diesem Befehl kann innerhalb eines compilierten Programms 
der System-Interrupt $3 (Breakpoint-Interrupt) ausgelöst werden. 
Dadurch ist es möglich, in einen Debugger zu verzweigen, um z.B. 
den Stand der Prozessor-Register zu überprüfen. 

‘Parameter" enthält optional einen Übergabewert, dessen LOW- 
Word bei Aufruf in AX und dessen Hl-Word in DX eingetragen 
wird. 


P:() Maschinenprogramm nach PASCAL-Konvention aufrufen 

~P:Adressvar% {[Paraireterliste]) 

Var=P:Aciressvar% ([Paraireterliste]) 



Es gelten exakt die gleichen Erläuterungen wie zu C;, nur daß hier 
die Parameter ihrer Reihenfolge nach von links nach rechts auf den 
Stack gelegt werden, wodurch dann - im Gegensatz zu C: - der 
letzte Parameter ‘obenauf’ liegt. 


Z.B. 


-P:(L:Paral*,Para2&,L:V:Para4S) 
erzeugt folgende Stack-Situation: 

; bis hierher wie im C:-Beispiel 

les si,[bp+6] ; 3. Parameter 'L:V:Para3$'(longl 
mov ax,[bp+10]; 2. Parameter 'Para25[' (word) 

les di,[bp+12]; 1. Parameter 'L:Paral4' (longl 

; ab hier wieder wie im C;-Beispiel 

Alles weitere lesen Sie bitte bei der Beschreibung des‘C:’-Befehls 
nach. 
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7 . 6 . REGISTER -VARIABLEN 


_AX,_AH,_AL 


(‘A’ccu) AX-Register-Word 

_BX,_BH,_BL 


(‘Base) BX-Register-Word 

_CX,_CH,_CL 


(‘C’ount) CX-Register-Word 

_DX,_DH,_DL 


(‘Data) DX-Register-Word 

Var=_AX 

-> 

AX-Word konplett lesen 

_AX=Wordwert 

-> 

AX-Word kcnplett schreiben 

Var=_AH 

-> 

HiByte des AX-Words lesen 

' _AH=Bytewert 

-> 

HiByte des AX-Words schreiben 

' Var=_AL 

-> 

LoByte des AX-Words lesen 

_AL=Bytewert 

-> 

Lo^d;e des AX-Words schreiben 


Bei diesen Register handelt es sich um die allgemeinen System- 
Register der Intel-SOxxx-Prozessoren. Es kann hierüber jeweils 
das komplette Word des entsprechenden Registers oder separat 
entweder sein Low-Byte oder sein High-Byte angesprochen wer¬ 
den (s. auch unter CALL und INTR). 

In den Syntax-Zeilen sind die AX-/AH-/AL-Modifikationen als 
Beispiele angegeben. Bei den anderen Register-Variablen (_BX, 
_BL._BH,_CX etc.) ist analog zu verfahren. 


_DI 

Destination-Index-Word 

_si 

Source-Index-Word 

_BP 

Base-Pointer-Word 

_FL 

Flag-Register-Word 

_SP 

Stack-Pointer-Word 

Var=_DI 

-> DI-Word kcxtplett lesen 

_DI=Wordwert 

-> Dl-Word kaiplett schreiben 


I Außer den reinen Daten-Registern (_AX,_BX etc.) verfügen die 
^ Intel-Prozessoren noch über verschiedene Register zur speziellen 
Verwendung. Die Verwendung und Inhalt dieser Register ist vom 
jeweiligen Fall abhängig (s. auch unter CALL und INTR). 


HotSpot 




Strukturen und Verzweigungen 



In der Syntax-Beschreibunge ist die Dl-Modifikationen als Beispiel 
angegeben. Bei den anderen Sonder-Registern (_SI,_BP,_FL,_SP) 
ist analog zu verfahren. 


,EAX,_EBX,_ECX,_EDX 386/486er Register-Longs 
.EDI,_ESI,_EBP,_EFU_ESP 386/486er Register-Longs 


Var=_EAX 

.EAX=Wert 


-> EAX-HiWord lesen 
-> EÄX-HiWord schreiben 


■ I Dieses sind die erweiterten (engl.; extended) System-Register der 
neueren 386er und 486er Intel-Prozessoren. Es können hierüber 
jeweils die High-Words des entsprechenden Registers angespro¬ 
chen werden. 


In der Syntax-Zeile ist die EAX-Modifikation als Beispiel angege¬ 
ben. Bei den anderen Registern-Variablen (_EBX,_ECX etc.) ist 
analog zu verfahren. 


7.7. AUSFÜHRBARE PROGRAMME 


EXEC {EXE} / EXECQ COM/EXE-Programm laden/starten 

EXEC '' Programmnaine'',' 'Kcnniandozeile'' 

Var=EXEE ('' Prograitimame " , " [Kcmnandozeile]'') 



EXEC lädt und startet ein komplett lauffähiges MSDOS-Pro- 
gramm, wobei das aufrufende Programm (GFA-Compilat, GFA- 
Interpreter) resident im Speicher bleibt und das aufgerufene 
Programm dorthin wieder zurückkehrt 


Die erste Syntaxform (als Befehl) ist nur dann sinnvoll, wenn kein 
Rückgabewert vom aufgerufenen Programm erwartet wird. 
Anderenfalls kann mit der zweiten Variante (EXEC() als Funktion) 
ein Rückgabewert (z.B. Fehlercode, Zeiger etc.) vom aufgerufenen 
Programm empfangen werden. 

Vor der EXEC-Ausführung sollte dafür gesorgt werden, daß 
genügend Speicherplatz für die Anwendung zur Verfügung steht 
Gfls.sind große Arrays und Strings vorher in den EMS-Speicher zu 
verlegen. 

‘Programmname' enthält den vollständigen Namen (gfls. incl. 
Pfad) des zu ladenden und zu startenden Programms. 
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'Kommandozeile’ enthält eine evtl, zu übergebende 
Kommandozeile, die an der entsprechenden Position im 
'Programmsegment Präfx’ (s._PSP) des aufgerufenen Programms 
abgelegt wird. Soll dieser Parameter nicht übergeben werden, 
kann dafür ein Leerstring (“”) verwendet werden.Speicherresidente 
Programme sollten hiermit nicht aufgerufen werden, da eine 
nachträgliche Freigabe des verwendeten Programmspeichers dann 
nicht mehr möglich ist. 


SHELL { SH } ‘COMMAND.COM’ starten/DOS-Befehl auslühren 

SHELL ' ' [DOS-Befehl] '' 


Dieser Befehl ermöglicht den Aufruf des MSDOS-Kommando- 
Interpreters'COMMAND.COM’.Wird dabei die Option 'DOS- 
Befehl’ nicht verwendet, so erscheint das DOS-Prompt und man 
kann nun verschiedene Arbeiten auf DOS-Ebene ausführen. GFA- 
BASIC bleibt resident und man kann den DOS-CLI durch den 
EXIT-Befehl wieder in Richtung BASIC verlassen. 

Wird dagegen innerhalb der Anführungsstriche ein MSDOS-Be- 
fehl angegeben, so wird der Befehl direkt auf DOS-Ebene ausge¬ 
führt und anschließend automatisch zum BASIC zurückgekehrt. 


Notizen: 
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8. DATEN-ORGANISATION 

8.1. BEREICHS-DEKLARATIONEN 


II Kommentarbeginn am Ende einer Befehlszeile 

.. .Prograitmtext. .. // [Kommentar] 

B Es kann zum Abschluß einer beliebigen Programmzeile (außer 
DATA) ein Kommentar angehängt werden. Die auf // folgenden 
Zeichen bleiben bei der Programmausführung unberücksichtigt. 

// kann auch am Zeilenbeginn (s. REM) eingesetzt werden. 


/*...*/ Kommentarkennung innerhalb einer Befehlszeile 

Programm. . ./* [Komnnentar] */... Programm 



Es kann innerhalb einer beliebigen Programmzeile (außer DATA) 
ein Kommentar eingefügt werden.Die zwischen der Anfangskennung 
*/ und der Endekennung /* stehenden Zeichen bleiben bei der 
Programmausführung unberücksichtigt. 


REM { R oder ‘ } 

Kommentar einfügen 

REM [Kommentar] 

' [KOTiTventar] 



Es kann eine beliebige Programmzeile als Kommentarzeile deklariert 
werden. Die darin enthaltenen Zeichen bleiben bei der 
Programmausführung unberücksichtigt. 



DATA { D } Daten-Speicher 

DATA [Num. Daten [,[''] Textdaten ["].•••]] 


P Der Anweisung wird gfls. eine Liste, durch Kommata getrennter 
• Werte oder Texte übergeben. Sie dient dazu, einem auftretenden 
READ-Befehl die entsprechende Anzahl von Daten zurVerfügung 
zu stellen. 
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Z.B.; 

DATA 12,$FF00,ABC, ''Text, Text" 

READ al ,bi,txlS,tx2$ 

Wenn inText-Datas keine Kommata berücksichtigt werden müs¬ 
sen, brauchen diese Texte nicht in Anführungszeichen gesetzt zu 
werden. Der Interpreter liest in diesem Fall alle Zeichen (auch 
Leerzeichen), die zwischen den einschließenden Kommas aufge¬ 
führt sind.Numerische READ-Anweisungen sind darauf angewie¬ 
sen, auch numerische Datas vorzufinden. Die Datas können dann 
allerdings auch in der binären,hexadezimalen oder oktalen Schreib¬ 
weise angegeben sein. 


READ { REA } DATA-Werte auslesen 

READ Var [,Var2,Var3%,Var4$,...] 



Den angegebenen Variablen ‘Vor’ werden die jeweils gelesenen 
DATA-Einträge zugeordnet. Wird kein RESTORE’Label’ ver¬ 
wendetwerden der Reihe nach vom Programmanfang aus soviele 
Datas eingelesen (falls vorhanden), wie READ-Anweisungen aus¬ 
geführt werden. 


RESTORE {RES} 

DATA-Zeiger setzen 

RESTORE [Label] 



P RESTORE ohne Angabe eines Labels bewirkt, daß der READ- 
Zeiger auf die erste DATA-Zeile im Programm gerichtet wird. 
Die folgenden READ-Anweisungen beziehen ihre Daten nachein¬ 
ander ab dieser Zeile. Wird dem Befehl ein ‘Lobe/’ übergeben, 
zeigt der READ- Zeiger auf den Anfang der DATA-Zeile, die auf 
das angegebene 'Labe/'folgt. Ein Label ist eine Programm-Marke, 
durch welche eine bestimmte Stelle innerhalb des Programms 
identifiziert werden kann. Diese Marke besteht aus einer (fast) 
beliebigen Anordnung von Textzeichen und Ziffern,die durch einen 
Doppelpunkt abgeschlossen werden müssen. 

Z.B.: 


RESTORE d_label 
READ txtS,num% 
PRINT txtS'numi 
DATA "abc",l 
d_label: 

DATA ''xyz'',99 


/’ setzt DATA-Zeiger auf 'd_label' 
/* liest String und Wert 
/* gibt 'xyz 99' aus 
/’ 1. DATA-Zeile (wird ignoriert) 
/* Programm-Marlcierung ('Label') 

/• 2. DATA-Zeile 
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DATA interne Variable für DATA-Zeiger 

.DATA=Adresse Var=_DATA 



Während der RESTORE-Befehl ein Setzen des DATA-Zeigers 
auf den Anfang einer bestimmten DATA-Zeile ermöglicht, kann 
man durch die reservierte Variable _DATA diesen Zeiger auch 
direkt auf eine bestimmte Position innerhalb einer DATA-Zeile 
lenken, bzw. die aktuelle Position des DATA-Zeigers ermitteln. 


Da sich diese Position relativ zur Programmlänge und Lage der 
DATA-Zeilen dynamisch verhält (und sich also ändern kann), 
müssen die später evtl, durch _DATA= anzuspringenden DATA- 
Positionen vorher (gfls. bei Programmstart) durch entsprechende 
READ-Anweisungen mit anschließender _DATA-Abfrage ermit¬ 
telt und zwischengespeichert werden. Danach können diese 
DATA-Positionen bis zum Programmende als absolut, also unver¬ 
änderlich angesehen werden. 


_DATA enthält den DATA-Zeiger in Form eines 4Byte-Longs,der 
auf eine bestimmte Speicherposition innerhalb des Programm- 
(Token-) Codes weist. An dieser Speicherposition befindet sich 
dann - generell im ASCII-Format - das dazugehörige DATA- 
Element. 


8.2. FELDER UND ARRAYS 


ARRAYFILL{arr} 

Feld mit Wert belegen 

ARRAYFILL Feld(),Wert 



‘Feld’ bezeichnet ein dimensioniertes,numerisches oder bool’sches 
Feld. Alle Elemente dieses Feldes werden mit dem angegebenen 
“Wert’ belegt. 


Paßt das 'Wert'-Format nicht mit dem Feldtyp überein (z.B. 
‘Fe/d()’ist Byte-Format und‘Wert’ist Real),so wird nur der Anteil 
von “Wert’ berücksichtigt, der für den Typ von ‘Fe/dO’verwendbar 
ist (z.B. INT (Wert) AND $FF). Bei Bool-Feldern bewirkt jeder 
‘Wert’, der ungleich Null ist, ein Füllen mitTRUE (-1). 
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DELETE{del} 

Einzelelement aus Feld löschen 

DELETE Feld(Index) 

DELETE Feld$( Index) 



p Löscht das einzelne Element ‘Index’ aus dem eindimensionalen 
‘Feld()’,bzw.‘Feld$()’.A]le darüberliegenden Elemente werden 
im Array um eine Stelle nach unten versetzt. Das letzte Element 
,des Arrays enthält anschließend den Wert Null, bzw. bei String- 
Arrays einen Leerstring 


DIM {Dl} Feld(er) dimensionieren 

DIM Feldl(Dl[,D2,..])[,Feld2(Dl[,D2, 


Legt die Dimension(en) von ‘Feld I ()’ (bzw.gfls.‘Feld2Q’,‘Feld3()’ 
etc.) fest und reserviert hierfür Speicherplatz. Dabei sind pro Feld 
bis zu 6 Dimensionen möglich. 


‘Feld(y steht für beliebige numerische oder String-Felder. ‘Dx' 
besagt, wieviele Elemente pro Dimension eingerichtet werden 
sollen. Bei mehrdimensionalen Feldern darf die Anzahl der Ele¬ 
mente in der ersten Dimension nicht größer als 65535, und die 
gesamte Anzahl der Elemente der übrigen Dimensionen (das 
Produkt der Dimensionen 2 bis 6) ebenfalls nicht größer als 65535 
sein. Bei eindimensionalen Feldern richtet sich die Feldgröße 
dagegen nur nach der Größe des verfügbaren Arbeitsspeichers. 


ACHTUNG: 


Bei sehr großen Dimensionierungen kann sich dieAdressenlage 
der übrigen Variablen - insbesondere bei Stringvariablen - 
verschieben. Im Falle, daß Maschinenprogramme in 
Stringvariablen abgelegt wurden, fuhrt dies beim nächsten 
Aufruf der Routine gfls. zum Absturz. Zur Speicherung der 
Routine eignet sich daher am besten ein beliebiges numeri¬ 
sches Feld: 

DIM ASlCodelänge/4+1) 
StartS=VARPTR(A%(0)) 

BLOAD "MASCHINE.COD'' .Starts 
CALL Starts 
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DIM?() 

Menge der Feldelemente ermitteln 

Var=DIM?(Feld{)) 



'Feld()' ist ein beliebiges numerisches oder String-Feld. DIM?() 
liefert die Anzahl aller Elemente dieses Feldes. Bei nicht 
dimensionierten Feldern wird der Wert 0 geliefert. 



ERASE { ER } Feld(er) löschen 

ERASE FeldlO [,Feld2() [_]] 


‘Feld()‘ bezeichnet ein beliebiges Feld, das gelöscht werden soll. 
Die Dimensionierung für dieses Feld wird aufgehoben und der 
dafür reservierte Speicherplatz wieder freigegeben. Es ist möglich, 
auch eine Liste von Feldern (auch verschiednerTypen) anzugeben, 
die dann mit nur einem Befehl gelöscht werden. 


INSERT { INS } Einzelelement in Feld einfügen 

INSERT Feld(Index)=Wert 
INSERT Feld$(Index) = "Text" 


P Fügt das einzelne Element‘Index'in das eindimensionale ‘FeldQ’, 
* bzw. ‘Feld$(y mit dem zugewiesenen "Wert’ bzw. ‘Text’ ein. Alle 
darüberliegenden Elemente werden um eine Stelle nach oben 
versetzt. Der Inhalt des letzten Elementes von ‘Feld(y bzw. 
'FeldSO' wird dabei überschrieben. 


OPTION BASE { OPT B } Feld-Basiselement bestimmen 

^ OPTION BASE 0 
! OPTION BASE 1 


Bestimmt das Basis-Element aller dimensionierten Felder (0 oder 
I). Die Basis (das Element mit dem kleinsten Index) kann im 
Programm mehrmals geändert werden, da sich die schon definier¬ 
ten Elemente dem neuen Index anpassen. Z.B. vorher OPTION 
BASE 0, dann OPTION BASE I: aus A$(0) wird A$( I),A$( I) wird 
A$(2) etc. War das Feld() vorher mit z.B. DIM Feld (10) 
eingerichtet, existiert dann auch das Element Feld(l I). 
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QSORT { Q } Feld (-Bereich) Quick-Sortierung 

QSORT Feld([+/-]) [,Anz [,Feld2%()]] 

QSORT Feld${[+/-])[KITH Sort()][,Anz[,Feld2%()]] 


1 Es können Felder nach ihrer numerischen Größe oder alphabeti- 
scher Reihenfolge nach dem 'Qu/cksort'-Verfahren sortiert wer¬ 
den. ‘FeldQ’ ist dabei ein numerisches Feld beliebigen Typs. 
‘Feld$(y ist ein Stringfeld.(innerhalb der Leerklammer, z.B. 
QSORT Feld(+)) ist entweder ein Plus- oder Minuszeichen, daß die 
Sortierrichtung angibt. Sollen die Werte, bzw. Strings mit dem 
höchsten Wert, bzw. Buchstaben im niedrigsten Element (0 bei 
OPTION BASE 0) beginnend absteigend sortiert werden, ist 
dies das Minuszeichen Ein Pluszeichen '+' oder keine Angabe 
bewirkt die aufsteigende Sortierung (niedrigster Wert bzw. Buch¬ 
stabe im niedrigsten Element). 

‘Anz’ kann optional verwendet werden, um zu bestimmen, wie¬ 
viele Elemente maximal sortiert werden soll (z.B. 6 = von 0-5 bei 
OPTION BASE 0, bzw.von 1-6 bei OPTION BASE I). Es kann 
optional ein 4Byte-lntegerfeld (‘Feld2%()') angegeben werden, 
dessen Elemente unabhängig von ihrem Inhalt paralell mit dem 
eigentlichen Sortierfeld mitsortiert werden. Steht nach der 
Sortierung z.B. der Inhalt des vorherigen ‘Fe/d()'-Elementes mit 
dem Index 6 nun im Element-Index 3, so wird der Inhalt des 
vorherigen 'Fe/d2%()’-Elementes 6 nun unabhängig von seinem 
Wert ebenfalls im Element-Index 3 einsortiert sein. 

Bei Stringfeldern kann durch WITH zusätzlich ein beliebiges 
Integerfeld (‘SortQ’ = IByte, 2Byte oder 4Byte-lnteger) mit 
mindestens 256 Elementen bestimmt werden, dessen Elemente¬ 
inhalt die Reihenfolge der Sortierung vorgibt. Sind z.B. alle 256 
Elemente mit den ASCII-Werten in normaler Reihenfolge belegt 
(0-255), ist die Verwendung von ‘SortQ’ überflüssig, da die ASCII- 
Tabelle defaultmäßig als Sortierfolge angenommen wird. Werden 
dagegen z.B. die Zeichen ‘o’ und 'A' vertauscht steht ‘A’ in der 
Sortierfolge über 'a' (normalerweise umgekehrt), während alle 
anderen Zeichen normal sortiert werden. So kann eine völlig 
willkürliche Sortierfolge vorgegeben werden. 


SSORT {SS} Feld (-Bereich) Shell-Sortierung 

SSORT Feld([+/-]) [,Anz [,Feld2%()]] 

SSORT Feld$ ([+/-]) [WITH Sort ()][,Anz [,Feld2%()] ] 


Erläuterungen zu QSORT gelten hier analog (s. dort). 
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8.3. VARIABLEN - DEKLARATION 


DEFBIT {DEFBi} 

Boolvariable(n) deklarieren 

DEFBIT Define$ 



p DEFxxx-Befehle dienen der globalen Deklaration von 
^ Variablentypen. Es können verschiedene Definitions-Strings ver¬ 
wendet werden, die alle Variablen mit der darin angegebenen 
Namensspezifikation dem entsprechendenVariablentyp zuordnen. 

Diese Deklaration wird üblicherweise zu Programmbeginn ausge¬ 
führt, da sonst eine Unterscheidung zwischen deklarierten und frei 
definierten Variablen erschwert wird. Nach dieser Deklaration 
sieht das Programm alle Variablen, denen kein Postfix (z.B.‘%’für 
4Byte-lntegers,für Bool-Variablen oder “U’ für Fließkomma- 
Variablen) angehängt wurde, als Variablen des angegebenen Typs 
an. 


Es ist trotzdem jederzeit möglich, einzelne Variablen separat zu 
definieren,auch wenn sie dieselbe Namensspezifikation aufweisen 
wie eine globale Deklaration. Dazu ist in den entsprechenden 
Fällen dem separaten Variablennamen das entsprechende Postfix 
hinzuzufügen, womit die so unmißverständlich gekennzeichnete 
Variable von der Deklaration ausgeschlossen wird. Separat ge¬ 
kennzeichnete Variablen haben generell Vorrang vor den globalen 
Deklarationen. Um Mißverständnisse zu vermeiden, sollte nach 
Verwendung von DEFxxx am Programmende DEFFLT ' 'a-z' ' 
verwendet werden. 


‘DefineS’ ist ein String (Konstante, Variable oder Ausdruck), 
durch welchen die Namensspezifikation festgelegt wird. 


Beispiele: 

DEFBIT “a” = Variablen, deren Name als ersten Buch¬ 

staben ein ‘a’ tragen,sind hiermit - sofern 
nicht separat anders bestimmt (s.o.) - als 
Boolvariablen deklariert. 


DEFWRD “word” = Variablen,deren Name mit den Buchsta¬ 
ben ‘ward’ beginnen, sind hiermit als 
2Byte-lntegervariablen deklariert. 

DEFSTR “d-f ’ = Variablen, deren Name als ersten Buch¬ 
staben ein oder‘f' tragen, werden 

als Stringvariablen interpretiert. 
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DEFBYT 

“b,c,g-l” = 

Variablen, deren Name als erstes Zei¬ 
chen ein 'b', 'c', ‘g’, 'h\T. f, ‘k’ oder'/' 
trägt, werden als 1 Byte-Integervariablen 
angesehen. 

DEFINT' 

“il.i2” = 

Variablen, deren Name mit den Buchsta¬ 
ben oder ‘/2* beginnen, werden als 

4Byte-lntegervariablen angesehen. 

DEFFLT ‘ 

‘a-c^-z” = 

Variablen, deren Name als ersten Buch¬ 
staben ein ’a’. ‘b’. 'c', ‘x’, ‘y' oder ‘z’ 
trägt, werden hiermit als SByte- 
Fließkommavariablen (Standard) 
deklariert 


DEFBYT { DEFB } I Byte-Integervariablen deklarieren 

DEFBYT Define$ 

Siehe Erläuterungen zu DEFBIT. 


DEFDBL { DEFD } SByte-Fließkommavariablen deklarieren 

DEFDBL DefineS 


Identisch mit DEFFLT. Siehe Erläuterungen zu DEFBIT. 


DEFFLT { DEFFL } SByte-Fließkommavariablen deklarieren 

DEFFLT Define$ 


Identisch mit DEFDBL. Siehe Erläuterungen zu DEFBIT. 


DEFINT { DEFi } 4Byte-lntegervariablen deklarieren 

DEFINT DefiJie$ 


Siehe Erläuterungen zu DEFBIT. 
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DEFSNG { DEFs } 4Byte-Fließkommavariablen deklarieren 

DEFSNG Define$ 


Siehe Erläuterungen zu DEFBIT. 


DEFSTR { DEFST } Zeichenkettenvariable(n) deklarieren 

DEFSTR De£ine$ 



Siehe Erläuterungen zu DEFBIT. 


DEFWRD { DEFw } 2Byte-lntegervariablen deklarieren 

DEFWRD Define$ 



Siehe Erläuterungen zu DEFBIT. 


8.4. DATEN-UMWANDLUNG 


BIN$() 

Numerisch => Binär 

Var$=BIN$ (E>^r [ , Stellen]) 



Wandelt ‘Expr' zu einem Textstring im Binärformat um. 'Expr' 
^ steht für eine beliebige numerische Variable oder Ausdruck. Will 
man Integerwerte im Binär-Format angeben, so kann der Vorsatz 
(z.B.: A%=&:Xl0011101) verwendet werden. 

Durch den optionalen Parameter'Ste/fen'kann eine Stellenanzahl 
(I - 32) vorgegeben werden.auf die der gewandelte Wert begrenzt 
oder durch vorangestellte Nullen erweitert wird. 


DEC$() 

Numerisch => Dezimal 

Var$=DEC$(Expr [ ,Stellen]) 




Wandelt 'Expr' zu einemTextstringim Integer-Dezimalformatum. 
'Expr' steht für eine beliebige numerische Variable oder Ausdruck. 
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Durch den optionalen Parameter‘Ste//en'kann eine Stellenanzahl 
(I - 32) vorgegeben werden,auf die der gewandelte Wert begrenzt 
oder durch vorangestellte Nullen erweitert wird. 


HEX$() 

Numerisch => Hexadezimal 

Var$=HEX$(Expr [.Stellen]) 

1 




Wandelt ‘Expr" zu einem Textstring im Hexadezimalformat um. 
’Expr’ steht für eine beliebige numerischeVariable oder Ausdruck. 
Will man Integerwerte im Hexadezimal-Format angeben,so kann 
der Vorsatz ’AH’ (z.B.: A%=&HE1A7) verwendet werden. Durch 
den optionalen Parameter ‘SteHen’ l^nn eine Stellenanzahl (1-8) 
vorgegeben werden, auf die der gewandelte Wert begrenzt oder 
durch vorangestellte Nullen erweitert wird. 


OCT$() 

Numerisch => Oktal 

Var$=ClCT$(Expr [.Stellen]) 




Wandelt ‘Expr’ zu einem Textstring im Oktalformat um. ‘Expr* 
steht für eine beliebige numerischeVariable oder Ausdruck. VVill 
man Integerwerte im Oktal-Format angeben, so kann derVorsatz 
‘ÄO' (z.B.; A%=&016501) verwendet werden. Durch den 
optionalen Parameter ‘Stellen’ kann eine Stellenanzahl (I - II) 
vorgegeben werden, auf die der gewandelte Wert begrenzt oder 
durch vorangestellte Nullen erweitert wird. 


ASC{) 

Textzeichen => ASCII-Wert 

Var=ASC ('' Zeictien'') 




Ermittelt den ASCII-Wert von ‘Zeichen’. Bei Strings wird nur der 
ASCII-Wert des ersten Zeichens zurückgegeben. Ist der angege¬ 
bene String leer (""), wird derWert Null geliefertASCQ bildet die 
Umkehrfunktion zu CHR$(). 
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CHR$0 

ASCII => Textzeichen 

j Var$=CHR$(Wert) 



I Liefert das, dem angegebenen 'Wert’ entsprechende ASCII-Zei- 
® eben. Ist “Wert’ größer als 255, so wird das Zeichen ermittelt, das 
'Wert'MOD 256 (bzw.'Wert’AND $FF) entspricht (s.Beispiel zu 
XLATES und SELECT..CASE). CHR$() bildet die 
Umkehrfunktion zu ASCQ. 

Beachten Sie auch das Beispiel zu STR$0 


CVD()CVI()CVLO CVS() 

String => Format-Zahl 

CVI(''2 Zeichen") -> 

CVL( "4 Zeichen'') -> 

CVS(''4 Zeichen") -> 

CVD("8 Zeichen") -> 

16 Bit-Integerzahl 

32 Bit-Integerzahl 
lEEE-Single-Realzahl 
lEEE-Double-Realzahl 



Es werden die, der jeweiligen Funktion entsprechenden,ersten ‘x’ 
Zeichen des beliebigen Textstrings "x Zeichen” in eine Zahl des 
jeweiligen Formats umgewandelt Ist “x Zeichen” kürzer als die 
für die jeweilige Funktion erforderliche Zeichenanzahl, so wird 
Null geliefert 


Diese Funktionen bilden die Umkehrfunktionen zu 
MKD$0,MKI$0>MKL$0>MKS$0 Beachten Sie auch die Aus¬ 
führungen unter ‘VARIABLEN - TYPEN’ sowie unter INT{}, 
LONGO. SINGLEO und DOUBLEO. 


MKD$OMKI$()MKL$()MKS$() Format-Zahl => String 


MKD$(lEEE-Double-Wert) 
MKI$(16Bit-Wert) 
i MKL${32Bit-Wert) 

[ MKS$(lEEE-Single-Wert) 


-> 8-Zeichenstring 
-> 2-Zeichenstring 
-> 4-Zeichenstring 
-> 4-Zeichenstring 



Es wird der in Klammern angegebene Wert in einen,derWertgröße 
und dem gewünschten Format entsprechenden Stringausdruck 
umgewandelt. 


Diese Funktionen bilden die Umkehrfunktionen zu 
CVD(),CVI0.CVL0,CVS0- Beachten Sie auch die Ausführun- 


HotSpot (gl^ 



Daten-Organisation 


129 


gen unter ‘VARIABLEN - TYPEN’ sowie unter INTQ, LONGQ, 
SINGLEQ und DOUBLEQ 


STR$0 Numerisch ■> String 

Var$=STR$(Wert [,Stellen,Realteil]) 

■ Es wird ein Textstring mit der Länge gebildet, die der Anzahl der 
Ziffern des übergebenen Wertes im Dezimalformat entsprechen 
würde. 

‘Wert' kann in jedem beliebigen Zahlensystem angegeben wer¬ 
den. Als Hexadezimal-, Binär- oder Oktalzahl angegebene Werte 
werden vorher in das Dezimalformat umgewandelt. 

Durch die optionalen Parameter ‘Ste//en,Refl/te//’ kann eine 
gesamte ‘Ste//en’-Anzahl bestimmt werden (Vor- und 
Nachkommastellen incl. Dezimalpunkt), auf die der gewandelte 
Wert in der Länge begrenzt wird und die Anzahl an Stellen davon, 
die für den ‘Realteil’ (Nachkommastellen) verwendet werden 
sollen. 

Z.B.; 

PRINT STR$(572.6169,6,3) ergibt: 72.617 

STR$() bildet die Umkehrfunktion zu VAL(). 

Beispiel: 

SCREEN 18 /* oder 16 oder 14 // VGA oder EGA 

DEFFILL 8 // vollflächig 

PRINT ''Weiter = li.Maustaste'' 

PRINT ''Ende = re.Maustaste'' 

REPEAT 

wert=RANDOM(10^RAND(12) ) / (10'(RAND (6] i-1) ) 

' // Zufalls-Real 

wert=wert-(wert*2’(RAND(2))) // Zufallsvorzeichen 

dlen%=(LEN(STR$(wert))*40/1.5) // Lange der 

' // Ziffernausgabe 

COLOR 15 

PBOX 25,50,615,110 // Hintergrund weiß 

COLOR 0 

BOX _X/2-dlen%/2-5, 55,_X/2-tdlen%/2 + 5,105 // Rahmen 
digit(wert,_X/2-dlen*/2,60,40,RAND(15),RAND(15)) 

' // Aufruf 

REPEAT // warten... 

DNTIL MOUSEK // ...auf Maustaste 

UNTIL M0USEK=2 // re. Taste=Exit 
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PROCEDURE digic(num.gxs,gys.ho,icol,ocol) 
' Parameter: 


' num = zu zeichnender Wert 

' gxs, gys = X-Start, Y-Start 
' ho = Zeichenhöhe in Pixelei 

' icol, ocol = Rahmen- und Füllfarbe 

LOCAL dig.gsc,j%,pat$ 

pat$=CHR$(215)+CHR$(68)+CHR$(190)//- setzen der 
pat$=pat$+CHR$(238)+CHRS(109) // Ziffern-Module 

pat$=pat$-fCHR$(235)+CHR$(251) II für 0-9, 
pat$=pat$+CHR$(70)+CHR$(255) // sowie 

patS=pat$+CHR$(239)+CHR$(64) // für Dez.punkt 

pat$+pat$+CHR$ (40) //- und Minuszeich. 

FOR j%=0 TO LEN(STR$ (num) )-1 //Wertstring durchgehen 
IF MID$(STR$(nuin), j« + l,l) = " . "// Dez.-pun)ct ? 

dig=10 // ID für Punkt 

ELSE IF MID$(STR$(num), j% + l,l) = "-"// Minus ? 

dig=ll // ID für Minus 

ELSE // sonst 

dig=VAL(MID$(STRS(num), j% + l,l)l// ID für Ziffer 
ENDIF 

bit=ASC(MIDS(pat$,dig+I,1)) // Modul-DefBits 

gsc=240/ho // Scalierungsfaktor 

' ab hier werden die jeweils notwendigen 
' Ziffernmodule gezeichnet 
IF bit AND 1 THEN digmodul(gxs,gys+110/... 

... gsc,0,gsc,icol,ocol) 
IF bit AND 2 THEN digmodul(gxs+10/... 

. ..gsc,gys,90,gsc,icol,ocol) 
IF bit AND 4 THEN digmodul(gxs + 120/gsc,... 

...gys+lO/gsc,180,gsc,icol,ocol) 

IF bit AND 8 THEN digmodul(gxs+110/... 

...gsc,gys+120/gsc,270,gsc,icol,ocol) 

IF bit AND 16 THEN digmodul(gxs,gys+230/... 

...gsc,0,gsc,icol,ocol) 
IF bit AND 32 THEN digmodul(gxs+10/... 

...gsc,gys+120/gsc,90,gsc,icol,ocol) 

IF bit AND 64 THEN digmodul;gxs-120/... 

...gsc,gys+130/gsc,180,gsc,icol,ocol) 

IF bit AND 128 THEN digmodul(gxs+110/... 

...gsc,gys+240/gsc,270,gsc,icol,ocol) 
gxs=gxs+160/gsc // Ziffern-X-Offset 

NEXT j» 

RETURN 

PROCEDURE digmodul(xs,ys,dg,sc,ci,co) 

' Parameter: 


' xs, ys = X-Start, Y-Start 
' dg = Rotationswinkel 
' sc = Scalierungsfaktor 
' ci, co = Rahmen- und Füll färbe 

COLOR ci // Rahmenfarbe 

DRAW ''ma'',xs,ys,''pd tt'',dg //- 

DRAW "fd" , 100/SC, "rt 135" // Turtle-DRAW 
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DRAW " fd' 

', 40/sc,''rt 45" 

// 

für das Digit 

DRAW " fd' 

',43.5/sc,''rt 45 

” // 

Grundmodul 

DRAW ''fd' 

',40/sc 

//-- 


IF SC<11 

// wenn 

Zeichen groß genug 


COLOR CO // Füllfarbe 

FILL xs+SINQ(160-dg)*50/sc,ys+COSQ(160-dg)'... 

...50/sc,ci 


ENDIF // Modul ausfüllen 

RETURN 

Einige Zeilen im obigen Listing wurden aus drucktechnischen 
Gründen geteilt (Zeilenanfang.Zeilenrest) 


Zu diesem Beispielprogramm ist technisch weiter nicht 
viel zu sagen. Erklärenswert wäre allerdings die logische 
Anordnung der Modul-DefB/ts: 

Dazu betrachten Sie bitte eine durch 'digit' gezeichnete 
digitale Acht. Sie werden feststellen, daß diese Acht aus 
acht Grundmodulen in verschiedenen Drehwinkel und 
Abständen aufgebaut ist. Das Grundmodul sieht ungefähr 
wie folgt aus: 



Nun habe ich einfach für jede mögliche Ziffer einen 8Bit- 
Vektor eingerichtet, der anhand der Bitstellung bestimmt 
welche Module jeweils zu zeichnen sind. Dabei bin ich 
davon ausgegangen,daß die Bits 0-3 jeweils die Module der 
oberen Ziffernhälfte - im Uhrzeigersinn vom Grundmodul 
links ausgehend - und die Bits 4-7 in dergleichen Reihen¬ 
folge die Module der unteren Ziffernhälfte repräsentieren. 
Ist ein Bit im Vektor gesetzt wird das entsprechende der 
acht möglichen Ziffernmodule gezeichnet 

Diese Bit-Informationen stecken nun in dem 12 Zeichen 
langen Modul-Defstring ‘pat$'. Dabei entsprechen die Zei¬ 
chen dieses Strings in ihrer Reihenfolge den zwölf 8Bit- 
Vektoren für die Ziffern 0-9 und die beiden Sonderzeichen 
'Minus' und 'Punkt'. 

Auf ähnliche Art und Weise könnte auch ein digital 
anmutendes Alphabet aufgebaut werden. 

Dies war eine - für dieses Buch außergewöhnlich lange - 
Erklärung zu einem Beispielprogramm, aber ich bin der 
Meinung, daß gerade kleine Programmiertricks wie diese 
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näher erläutert werden sollten, um den Inhalt und Ablauf 
einer solchen Routine deutlich zu machen. Die Könner 
unter Ihnen wären sicher von allein drauf gekommen, 
indem sie ganz einfach die ‘d/g/t'-Prozedur in ihre Einzelteile 
zerlegt hätten, um die Auswirkung jedes einzelnen Befehls 
separat zu betrachten. Den Anfängern soll hiermit gehol¬ 
fen werden, die - manchmal doch etwas schräge - 
Programmiererlogik nachzuvollziehen. Wenn Sie sich län¬ 
ger mit der Programmiererei befassen, werden Sie nicht 
selten überrascht feststellen, daß diese ‘schräge’ Logik 
meist doch sehr konsequent und platzsparend ist. 

Eine Fall-Abfrage per SELECT oder IF und die einzelne 
Zuordnung der möglichen Bitstellungen zu den jeweiligen 
Ziffern hätte einige ‘zig’ Bytes an wertvollem 
Programmspeicher mehr gekostet Außerdem wird auch 
zusätzlich die rationelle Verwendung von Bitvektoren ver¬ 
deutlicht 


VALQ 

String => Numerisch 

, Var=VAL( "Text" ) 




Wandelt alle am Anfang des angegebenen Text’-Strings stehenden 
Zeichen, die sich zur Darstellung numerischer Werte eignen, in 
eine dezimale (!) Realzahl um.Text'ist eine beliebige Zeichenkette, 
ein Stringausdruck oder eine String-Variable, deren Inhalt vom 
Anfang ausgehend daraufhin untersucht wird, ob Texaeichen 
enthalten sind, die einen Wert in einem der vier Zahlensysteme 
darstellen. Die Suche wird abgebrochen, wenn das Stringende 
erreicht ist oder die Funktion auf ein Textzeichen trifft welches 
nicht wandelbar ist Ist das erste Zeichen des Strings ein nicht 
wandelbares Textzeichen oder ist der String leer, wird eine Null 
zurückgegeben. 


Beispielsweise durch: 


A$="1011010" 

PRINT VAL(''&X''+AS) 

A$="1141331" 

PRINT VAL( "40' '+AS) 

A$="AF451DE' ' 

PRINT VAL(''4H''+A$) 


// <-Binär 
// Ausgabe; 90 

// <-0ctal 
// Ausgabe: 312025 

// <-Hexadezimal 
// Ausgabe; 183783902 


lassen sich auch HEX$-,OCT$- und BIN$- Werte extrahieren. 
Beachten Sie auch das Beispiel zu STRSQ. 
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VAL?() Anzahl wandelbarer Textzeichen ermitteln 

Var=VAL?(''Text'') 


Ermittelt ab Anfang von Text’ die Anzahl seiner Zeichen, die in 
numerische Werte konvertiert werden können (s.VALO). 


Text’ steht für eine beliebige Zeichenkette oder Stringvariable, 
die auf die Anzahl ihrer wandelbarer Zeichen untersucht werden 
soll. Trifft die Funktion auf nicht wandelbare Zeichen, wird die 
Untersuchung abgebrochen und dieAnzahl der bis dahin gefunde¬ 
nen wandelbaren Zeichen geliefert. 
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9. PROGRAMM - KONTROLLE 

9.1. PROGRAMMSIARTUND-ENIDE 


CHAIN {CHAi} 

Programm laden (Autostart) 

CHAIN '' PrograiTtnname'' 



Lädt ein BASIC-Programm von Diskette und startet es selbsttätig. 
Der BASIC-Arbeitsspeicher samt Inhalt (aufrufendes Programm) 
und die Variablenbelegung wird vorher gelöscht. 


CONT { coN } Programm (nach STOP-Befehl) fortsetzen 

CCNT 

Wurde der Programmlauf mit STOP unterbrochen, kann durch 
CONT im Direktmodus das Programm in der Zeile nach dem 
STOP-Befehl fortgesetzt werden. CONT ist nicht möglich, wenn 
nach STOP entweder CLEAR verwendet das Programmlisting 
verändert oder neue Variablen eingeführt wurden. Bitte verwech¬ 
seln Sie diesen Befehl nicht mit der CONT-Anweisung in 
SELECT.CASE-Strukturen 


EDIT{ed} 

Programm beenden 

EDIT 


Hat dieselbe Wirkung wie END. EDIT kehrt jedoch ohne Vor- 
^ Warnung direkt zum Editor (Interpreter) zurück. 

END 

Programm beenden 

END 



Bewirkt den Abbruch des aktuellen Programmlaufes. Es erscheint 
eine Programm-Ende-Meldung, nach welcher zum Editor 
zurückgekehrt wird.Variableninhalte und offene Dateien bleiben 
im Interpreter bis zur nächsten Programmänderung bzw. bis zum 
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nächsten CLEAR erhalten bzw. geöffnet und können im 'D/rekt'- 
Modus weiter angesprochen werden. Das Programm kann danach 
nicht durch CONT fortgesetzt werden. 


QUIT {QU} 

Programmende (Rückkehr zum DOS) 

QUIT [x] 



QUIT ist identisch mit SYSTEM und bewirkt, daß das Programm 
ohne jegliche Sicherheitsabfrage zum DOS-Aufrufer zurückkehrt. 



Es kann optional in ‘x’ ein 16Bit-Wert angegeben werden, der an 
das aufrufende Programm zurückgegeben und dann dort ausge¬ 
wertet werden kann. 

Allgemeine Konvention: 

X = 0 das Programm wurde ohne Fehler verlassen 
X > 0 ein interner BASIC-Fehler ist aufgetreten 
X < 0 ein DOS oder BIOS-Fehler ist aufgetreten 

In den Fällen,daß'x'ungleich Null ist,könnte gfls. 'QUIT ERR' 
in einer Fehler-Abfangroutine als Programmende eingesetzt wer¬ 
den. 


RUN {RU} 

Programm starten 

RUN ['' Prograrmname'' ] 

1 



Startet das im Arbeitsspeicher befindliche Programm. Dabei wer¬ 
den sämtliche Variableninhalte gelöscht. RUN kann auch im Di- 
rekt-Modus verwendet werden. 


Durch die Option ‘Programmname’ kann ein GFA-BASIC-Pro- 
gramm angegeben werden, das dann in den Arbeitsspeicher gela¬ 
den und automatisch gestartet wird (vgl. CHAIN). Wird bei 
‘Programmname’ keine Extension angegeben, so wird intern 
automatisch '.GFA’ eingesetzt. 
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STOP Programm unterbrechen 

STOP 

Mit STOP kann der Programmlauf an jeder beliebigen Stelle 
unterbrochen werden. Es erscheint eine Alert-Box, die danach 
fragt, ob das Programm fortgesetzt oder in den Direkt-Modus 
geschaltet werden soll. 


Es werden keine Variablen gelöscht und auch keine Dateien 
geschlossen. Im Direktmodus können jetzt beliebige 
Einzeilenbefehle und -Funktionen ausgeführt werden 


Z.B. 

oder 

oder 


PRINT VarS 

GET x,y,xx,yy,Var$ 

Var=xyz 


Das Programm kann anschließend gfls. durch Eingabe von CONT 
im Direkt-Modus fortgesetzt werden (s. CONT). 


SYSTEM { SYST } Programmende (Rückkehr zum DOS) 

SYSTEM [x] 


Ist identisch mit QUIT (s. Erläuterungen dort). 


9.2. LÖSCH-OPERATIONEN 


CLEAR {CLE} 

Felder und Variablen löschen 

I^LEAR 




Alle numerischenVariablen erhalten den WertO,alle Stringvariablen 
werden zu Leerstrings (“”). Felder werden gelöscht und ihre 
Dimensionierung aufgehoben. CLEAR darf nicht in 
PROCEDURE’s, FUNKTION’s oder FOR..NEXT-Schleifen 
verwendet werden. Bei Programmstart wird CLEAR automatisch 
ausgeführt. 
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CLR 


Einzelvariablen löschen 

CLR Var [,Var%,Var$,.. 

.] 



i Es kann eine Liste von Variablen (keine Feldvariablen) übergeben 
werden, deren Inhalte dann gelöscht werden. 


CLS 

Bildschirm löschen 

CLS 



Löscht den Ausgabe-Bildschirm bzw. das jeweils geöffnete GFA- 
Window und setzt den Cursor auf‘Home’ (linke, obere Ecke). 



NEW Programmspeicher löschen 

NEW 



Löscht den BASIC-Arbeitsspeicher mitsamt dem Programm und 
seinen Variablen. Der Speicher ist dann frei für neue Programme, 
die z.B. durch die Editorfunktion ‘Merge’ geladen werden sollen. 


9.3. ZEIT-OPERATIONEN 


DATE$ 

Systemdatum ermitteln 

Var$=DATE$ 


^ DATEI ist eine reservierte Stringvariable. Sie enthält einen String 
* mit dem aktuellen Systemdatum im Format 

'TT.MM.JJJJ' 

(bei MODE 0 und MODE 2) 

bzw. im US-Format 


'MM/DD/YYYY' 

(bei MODE 1 und MODE 3). 
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DATE$= 

Systemdatum bestimmen 

DATE$=''Datum-String'' 




Mit diesem Befehl ist es möglich,der reserviertenVariablen DATE$ 
einen neuen “Datum-String" zuzuweisen. Das Format dieses 
Strings ist von der MODE-Einstellung abhängig (s. MODE, 
SETTIME und DATE$) 


DELAY { DEL } Programm-Unterbrechnung (I Sekunde) 

DELAY Sekunden 


■ ‘Sekunden' bestimmt,wieviel Sekunden das Programm pausieren 
soll. 


PAUSE { PA } Programm-Unterbrechnung (I /SO Sekunde) 

PAUSE Dauer 



‘Dauer' bestimmt in SOstel Sekunden, wie lange das Programm 
pausieren soll. 


SETTIME {SETT} 

1 

Uhrzeit und Datum einstellen 

SETTIME Zeit$,Datum$ 


In ‘ZeitS’ und ‘DatumS’ wird die neue Systemzeit und das neue 
^ Systemdatum bestimmt. 

Europa-Format 


Zeit$ = ' 'hh:irin:ss' ' 

oder ''hhmmss'' 


USA-Format: 

Datums = ' 'iran/dd/yyyy '' oder ' 'iran/dd/yy'' 

Wird das Format (s. MODE) nicht korrekt eingehalten, wird 
SETTIME ignoriert. 
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TIME$ 

System-Uhrzeit ermitteln 

Var$=TIME$ 



TIME$ ist eine reservierte Stringvariable. Sie enthält einen String 
mit der aktuellen System-Uhrzeit im Format ' HH. MM. SS'. 



TIME$= 

System-Uhrzeit bestimmen 

TIME$=''Zeit-String'' 



Mit diesem Befehl ist es möglich,der reservierten Variablen TI ME$ 
einen neuen “Zeit-String” im Format 'hh:miii:ss' oder 
'hhmmss' zuzuweisen und damit die interne System-Uhr zu 
‘stellen’ (s. auch SETTIME). 


TIMER 

Laufeeit ermitteln 

Var=TIMER 



TIMER ist eine reservierte Variable.Sie enthält die seit Systemstart 
verstrichene Zeit in I OOOstel Sekunden. 


9.4. FEHLER - BEHANDLUNG 


ERR 

Fehlercode ermitteln 

Var=ERR 



ERR ist eine reservierte Variable, die nach Auftreten eines Fehlers 
seine Identifikationsnummer enthält. 


ERR$0 

Fehlertext liefern 

Var$=ERR$(Index) 



Die Funktion ERR$() liefert den Text der GFA-BASIC- 
Fehlermeldung, deren Fehler- ’/ndex’ angegeben wurde (s. ERR 
und ANHANG 'FEHLERLISTE'). 
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ERROR {ERR} 

Fehler simulieren 

ERROR Fehlemuitirer 



p ‘Fehlernummer" steht für die Identifikationsnummer des zu 
simulierenden Fehlers. Es wird entweder eine Fehlermeldung 
ausgegeben und das Programm beendet, oder wenn ON ERROR 
GOSUB verwendet wurde, zu der dort angegebenen Prozedur 
verzweigt. 


FATAL 

Fehlerart ermitteln 

Var=FATAL 



P FATAL ist eine reservierte Variable. Es wird eine Unterscheidung 
^ zwischen 'normalen'- und ‘fatalen’ Fehlern getroffen.‘Foto/’ bedeu¬ 
tet, daß die Adresse des zuletzt ausgeführten BASIC-Befehls nicht 
mehr bekannt ist. Dies kann passieren,wenn innerhalb einer DOS- 
oder BIOS-Funktion unabhängig vom BASIC ein Fehler auftritt. 
Nach Fehlern dieser Art ist die Bearbeitung von RESUME- 
Anweisungen nicht mehr bzw. nur noch RESUME ‘label* mög¬ 
lich. Ist solch ein 'fataler' Fehler aufgetreten, so liefert FATAL ein 
TRUE (-1), andernfalls FALSE (0). 


ON ERROR [GOSUB] 

Verzweigung bei Fehler 

1 CN ERROR [GOSUB] Prozedur 

CN ERROR 




Verzweigt im ersten Fall zur angegebenen ‘Prozedur", sobald ein 
System- oder BASIC-Fehler auftritt. Dazu wird der Name einer 
‘Prozedur" angegeben, zu welcher das Programm in diesem Fall 
verzweigen soll (GOSUB kann enfallen).VVurde zu einer Fehler- 
Routine verzweigt,schaltet der Interpreter die Fehlerbehandlung 
nach Abarbeiten der angegebenen ‘Prozedur" wieder in den 
Normalmodus zurück. Um dann weiterhin bei Fehlern die 
Fehlerbehandlung aufrufen zu können, muß vor der RESUME- 
Anweisung zumVerlassen der Behandlungs-’Prozedur’ erneut ein 
ON ERROR GOSUB verfügt werden. 


Die zweite Syntax-Variante schaltet den normalen Error-Modus 
(Programm abbrechen - Fehlermeldung anzeigen) wieder ein. 
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RESUME {REsu 

} Pno^m nach ON ERROR GOSUB ibrtsetzen 

RESUME 

-> Fortsetzung mit Wiederholung 
der fehlerhaften Zeile 

RESUME NEXT 

-> Fortsetzung mit der Zeile, die 
der fehlerhaften Zeile folgt 

RESUME Label 

-> Fortsetzung mit der auf das 


'Label' folgenden Prograramzeile 


RESUME bestimmt als Abschluß der ON ERROR GOSUB- 
Prozedur, ab welcher Programmzeile das Programm nach Auftre¬ 
ten eines selbstverwalteten Fehlers fortgesetzt werden soll. 



Befindet sich bei der dritten Syntax-Variante das angegebene 
‘Label’ außerhalb der Error-Routine, wird das GOSUB- 
Sprungregister gelöscht und alle globalen Variablen restauriert. 

Nach Fatal-Errors (s. FATAL) ist ausschließlich RESUME'Label’ 
zu verwenden. RESUME NEXT und RESUME könnten dann 
zum Absturz des Rechners und damit zumTotalverlust der Daten 
führen. 


9S. TASTATUR-KDtsfTROLLE 


INKEY$ 

Einzelzeichen von Tastatur einiesen 

Var$=INKEY$ 

IF LEN(INKEY$) 

IF INKEY$="Z" 

-> direkte Zeichen-Zuweisung 
-> wenn Inkey$ größer "'' ist 
-> wenn " Z " gedrückt wurde 


I Ohne Programmunterbrechung wird festgestellt, ob entweder 
^ eine ASCII-Wert liefernde Taste oder eine Sondertaste (Pfeil-, 
Funktionstasten etc.) betätigt wurde. Ist bei Befehls-Ausführung 
keine Taste gedrückt wird (Nullstring) geliefert. Bei ASCII- 
Tasten wird das entsprechende Zeichen zurückgegeben. Wurde 
bei Ausführung eine Sondertaste gedrückt liefert INKEY$ einen 
Zwei-Zeichen-String, dessen erstes Zeichen (Hl-Byte) immer ein 
Nullbyte ist. Das zweite Zeichen (LO-Byte) beinhaltet dann den 
Code der Sondertaste (s.ANHANG PC-TASTATUR ). 
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KEYGET{K} 

auf Taste warten und Code liefern 

KEYGET TasteS 



Es wird auf einen Tastendruck (jedoch nicht Sondertasten wie 
^ <NumLock>, <CapsLock>, <Shift>, <Alt> etc.) gewartet und 
anschließend in der angegebenen numerischenVariablenToste<fi' 
einen 16Bit-Wert zurücl^egeben. 

LO-Byte (Bits 0 bis 7) = ASCII-Code derTaste 
Hl-Byte (Bits 8 bis 15) = Scan-Code derTaste 


Wird eine Byte-Integervariable für 'Vor' (Var|) verwendet, wird 
nur der ASCII-Code im LO-Byte des beschriebenen Word-Wertes 
geliefert (s.ANHANG'PC-TASTATUR ). 


KEYTEST { KEYT } Tastatur durchlaufend abfragen 

KEYTEST TasteS 

J Es wird in Toste<fi' ein 16Bit-Wert zurückgegeben, welcher der 
^ bei Befehlsausführung gedrückten Taste entspricht (s. KEYGET). 
Es wird - wie bei INKEY$ - nicht auf den Tastendruck gewartet. 
Wurde keineTaste gedrückt,wird Null geliefert (s ANHANG PC- 
TASTATUR'). 


9.6. DEBUGGING 


TRACE$ 

aktuelle Befehlszeile liefern 

' Var$=TRACE$ 



Innerhalb der durch ‘TRON Proc’ bestimmten Prozedur kann 
durch die reservierteVariableTRACE$ der Programmtext der als 
nächstes abzuarbeitenden Programmzeile ermittelt werden. 
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TROFF {TROF } 

Trace-Modus ausschallen 

TROFF 


Im Anschluß an TROFF (Trace off’) ist das Programm wieder im 
^ normalen Ausführungsmodus. TRON oder ‘TRON Proc’ sind 
dann ausgeschaltet. 

TRON {TR} 

Trace-Modus einschalten 

TRCM [#Kanal] 



p TRON (Trace on") kann an jeder beliebigen Programmstelle 
eingesetzt werden und gibt ab dann während des Programmlaufs 
die jeweils aktuelle Programmzeile entweder auf dem Bildschirm 
oder in die durch ^^anaf'angegebene und offene Output-Datei 
(z.B.auch ‘COM I:’, ‘LPT1:’ oder - für perfektes Debugging - auf 
dem Zweitbildschirm ‘MON:’; siehe unter OPEN). 


TRON Proc {TR} 

Trace-Modus in Prozedur lenken ; 

TRCN Prozedur 

1 


Lenkt den Trace-Modus in die angegebene ‘Prozedur’. Es wird 
nicht - wie bei TRON - automatisch die aktuelle Befehlszeile 


ausgegeben, sondern es kann beliebig auf die durch TRACE$ 
ermittelte, nächste Befehlszeile reagiert werden. 


TRON Debug_routine 
... Programm 
TROFF 

PROCEDURE Debug_routine 
IF TRIM$(TRACE$)= ... 

... evtl Verzweigung 
ENDIF 
...Oder 
PRINT TRACE$ 

...oder 
VarS=TRACE$ 

. . .etc. 

RETURN 
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9.7. DIVERSES 


DEFNUM { DEF } Stellen-Begrenzung von Ziffern-PRINTs 

DEFNUM Stelle 


P ‘Stelle’ gibt die Ziffernstelle an, auf die alle - durch PRINT etc. - 
auszugebenden Werte gerundet werden sollen. Die Inhalte von 
Variablen oder die interne Rechengenaugkeit werden hierdurch 
nicht beeinträchtigt. 

Bei Realzahlen wird derVorkomma-Anteil.der gfls. hinter'Stef/e' 
liegt,als Nullen ausgegeben. Liegt‘Ste//e’im Nachkommabereich, 
werden alle dahinterliegenden Nachkommastellen ignoriert bzw. 
auf die Stelle ‘Stelle ’+1 gerundet. Die Rundung erfolgt mathema¬ 
tisch exakt; INT(Wert+0.5). 


FALSE 

Unwahr-Konstante 

Var=FALSE 



P FALSE ist eine reservierte Variable, die konstant den 'Unwert Null 
^ (0) enthält (s. Beispiel zu XLATE$). 


LET{le} 

Daten einer Variablen zuweisen 

liET Var=Wert 

LET Var$="Text" 



Es wird ‘Wert’ bzw. Text’ der angegebenen Variablen zugewiesen. 
LET ist ein Überbleibsel aus prähistorischen BASIC-Zeiten und in 
GFA-BASIC eigentlich überflüssig,da der Befehl mit der normalen 
Zuweisung 'Var=Wert' bzw. 'Var$=Text' identisch ist. 

Bei Mehrfachzuweisungen ist LET sogar im Nachteil, da bei jedem 
LET nur eine Variable zugewiesen werden kann. Seinen Sinn hat 
dieser Befehl nur in der Einhaltung möglichst hoher Kompatibilität 
zu anderen BASIC-Dialekten. 
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MODE { MOD } Zahlen- und Datumsformat bestimmen 

MODE Modus 


I In der Grundeinstellung werden in GFA-BASIC durch PRINT 
^ USING alle Werte im Europa-Format ausgegeben. Das heißt gfls, 
daß als Tausendertrennung ein Komma und als Dezimaltrennung 
ein Punkt verwendet wird. In den USA gelten die umgekehrten 
Konventionen. Ähnliches gilt für die Darstellung des Datums (s. 
SETTIME). 

MODE bestimmt durch den Parameter VModus’über die Darstel¬ 
lung des Datums durch DATE$ und FILES bzw. über das 
Eingabeformat des Datums bei SETTIME und DATE$=, sowie 
auch die zu verwendende Art der Werte-Darstellungsart bei 
PRINT USING-Ausgaben bzw. bei Verwendung von STR$0. 


'Modus': USING: DATE$: 


0 

ff jfffff 

TTtfr tf fr •IT rl 

30.10.1991 

1 


30/10/1991 

2 

Al 

Tf •TfTrTf jTrTf 

30.10.1991 

3 

Jt 

TT-TTTTTf sTTTf 

30/10/1991 

SOUND {SO} 


Klangausgabe 

SOUND Hertz,Dauer 




P ‘Hertz’ bestimmt die Tonfrequenz der Klangausgabe. ‘Dauer" 
^ bestimmt die Zeit (in 1/18 Sekunden), die der Ton bis zur Ausfüh¬ 
rung des nächsten Befehls gehalten wird (z.B. 2 Sekunden lang 
KammertonA: SOUND 440,36). 


TRUE 

Wahr-Konstante 

Var=TRUE 




TRUE ist eine reservierte Variable, die konstant den Wahr'wert - 
I enthält (s. Beispiel zu XLATE$ und VAR). 
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VOID { VO oder ~ } 


Dummy-Zuweisung 


VOID FunJctionO 
~Funktion{) 

B VOIDersetzteineDummy-Zuwe/sung('DuinmY=Funktion() '), 
^ ist aber schneller. Es wird eine Funktion aufgerufen, ohne dieser 
eine Rückgabevariable zur Verfügung zu stellen.VOID kann dann 
eingesetzt werden, wenn der Rückgabewert einer Funktion unin¬ 
teressant ist (z.B. VOID FRE ( 0 ) zum Auslösen einer ‘Garbage 
Collection' oder -FSETDTA () etc.). 


Notizen: 
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10. TEXT - OPERATIONEN 


lO.I. STRING-MANIPUUVT10NEN 


MID$0= Teilstring zuweisen 

MID$(Text$,Start [«Anzahl])=Quell$ 



TextS' gibt eine Stringvariable an, in welche 'Quell$' ab der 
Position ‘Start’ eingesetzt werden soll. 


‘Anzahl’ gibt optional die Anzahl der Zeichen von 'Que//|’an,die 
maximal in TextJ' eingesetzt werden sollen. Fehlt der Parameter 
‘Anzahl’, so werden maximal nur soviele Zeichen von ‘QuellS’ 
eingefügt, wie ab ‘Start’ in ‘TextS’ noch hineinpassen. Die ur¬ 
sprüngliche Länge von TextJ'bleibt dabei auf jeden ^11 unverändert 


MIRROR$0 

Zeichenkette spiegeln 

|^Var$=MIRROR$ (Quell$) 

1 


Mit ‘QuellS’ wird ein String angegeben, der dann gespiegelt (z.B. 
tiegeipseg) zurückgeliefert wird. In Verbindung mit RINSTRO ist 
diese Funktion z.B. bei der Pfadanalyse sehr nützlich. 


LSET { LS } String in String linksbündig einsetzen 

LSET Ziel$=Quell$ 


p ‘QuellS’ kann eine beliebige Zeichenkette oder Stringvariable 
sein, deren Inhalt linksbündig in die Stringvariable‘Z/e/J’eingefügt 
wird. 

Dabei bleibt die ursprüngliche Länge von ‘ZIelS’ unverändert. Ist 
‘Ziels’ kürzer als ‘QuellS’, werden von ‘QuellS’ nur soviel 
Zeichen in ‘ZielS’ eingefügt wie bis zum Stringende von ‘ZielS’ 
hineinpassen. Ist ‘Ziel’ dagegen länger als ‘QuellS’, werden die 
restlichen Stellen von ‘ZielS’ mit Leerzeichen aufgefüllt Der 
ursprüngliche Inhalt von ‘ZielS’ wird in jedem Fall komplett 
überschrieben. 
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RSET { RS } String in String rechtsbündig einsetzen 

RSET Ziel$=Quell$ 


p ‘Quell’ kann eine beliebige Zeichenkette oder Stringvariable sein, 
deren Inhalt rechtsbündig in ‘Zie/J'eingefügt wird.Weitere Erläu¬ 
terungen finden Sie unter LSET 


TRIM$0 

Leerzeichen im String löschen 

Var$=TRIM${Quell$) 




Löscht alle Leerzeichen, die am Anfang oder Ende von ‘Quell$’ 
stehen und gibt den verbleibenden Stringteil zurück. ‘Quell$’ 
bleibt dabei in seiner Ausgangsform erhalten. 


10.2. STKING-ANALYSE 


INSTRO String im String suchen 

Var=INSTR(Text$,Such$ [,Start] ) 

Var=INSTR([Start,] Text$,Such$) 

|K Liefert einenWert,der die absolute Position von‘Such$'in Textl’ 
** angibt.lst‘Such5'inTextJ’nichtenthaltenodersindbeideStrings 
leer, so wird der Wert 0 zurückgegeben. 

Wird optional in'Stört'eine Startposition angegeben, wird erst ab 
der damit angegebenen Zeichenposition (inclusiv) gesucht. 


LEFT$() Linksbündigen Teilstring ermitteln 

Var$=LEFT$(Quell$ [.Anzahl]) 


■ Liefert das erste Zeichen des Strings ‘QuellS’ bzw.- bei Verwen¬ 
dung des optionalen Parameters ‘Anzahl’ - soviele Zeichen ab 
Stringanfang von ‘QuellS’, wie in ‘Anzahl’ angegeben wurden. Ist 
‘QuellS’ ohne Inhalt (“”),wird auch ein Nullstring zurückgegeben. 
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MID$0 beliebigen Teilstring ermitteln 

Vcir$=MID$(Quell$,Start [.Anzahl]) 


Es wird einTeilstringvon‘Que//S'geliefert.‘Stort'gibt die Position 
in ’QuellS’ an, ab welcher gelesen werden soll. 

Wird die Option 'Anzahl’ verwendet, werden ab ‘Start’ soviel 
Zeichen geliefert, wie in ‘Anzahl’ angegeben sind. Sonst wird ab 
‘Stort'dergesamteRestvon‘Que//$'zurückgegeben.lst‘Que//$’ 
ohne Inhalt, wird eine Nullstring (“”) geliefert. 

Beachten Sie auch das Beispiel zu STRSQ. 


RIGHT$0 Rechtsbündigen Teilstring ermitteln 

Var$=RIGHT$(Quell$ [.Anzahl]) 



Liefert das letzte Zeichen des Strings ‘Quell$’ bzw. es werden bei 
Verwendung des optionalen Parameters ‘Anzahl’ - ab Stringende 
rückwärts gezählt - soviele Zeichen von 'Que/fJ'geliefert, wie in 
‘Anzahl’ angegeben wurden. Ist ‘Quell$’ ohne Inhalt wird 
auch ein Nullstring zurückgegeben. 


RINSTRQ String im String rückwärts suchen 

Var=RINSTR(Text$,Such$ [.Start] ) 

Var=RINSTR([Start.] Text$.Such$) 



Liefert einen Wert der die Position von 'SuchJ' in TextS'angibt 
Bei der Durchsuchung des Strings wird am Stringende begonnen. 
Weiteres siehe INSTR. 
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t03. STRING-ARm-IMETIK 


LENQ Type-/Stringlänge ermitteln 

Var=LEN(Var$) 

Var=LEN('IVpenname:) 

Var=IiEN (Variablenname.) 


p Ermittelt entweder die Länge des angegebenen Strings ‘VorJ’ 
^ (Syntax-Variante I) oder die Gesamtlänge eines TYPE-Blocks 
(Variante 2) oder die Länge einerTYPE-Variablen (Variante 3). 


MAX($) Größten String ermitteln 

Var$=MAX(Ej^rl$,E>¥ir2$ [,E3^r3$,... ]) 


1 Es wird der größte String einer Stringliste ermittelt indem der 
Reihe nach alle Einzelzeichen der zu vergleichenden Strings über¬ 
prüft werden. Haben die jeweiligen Zeichen denselben ASCII- 
Wert werden solange die jeweils nächsten Zeichen geprüft bis Sie 
sich voneinander unterscheiden oder einer der verglichenen 
Strings keine Zeichen mehr enthält Im ersten Fall ist der Ausdruck 
größer, dessen zuletzt geprüftes Zeichen den größeren ASCII- 
Wert besitzt. Im zweiten Falle ist es der String mit der größeren 
Länge. 

•Expr$' kann eine beliebiger Textausdruck, ein String oder eine 
Stringvariable sein. 


MIN($) Kleinsten String ermitteln 

Var$=MIN(EJ5)rl$,EJ5)r2$ [,Expr3$,... ]) 



Gibt den kleinsten String einer Stringliste zurück. Weitere Erläu¬ 
terungen ßnden Sie analog unter MAX($). 
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PRED($) nächstkleineres ASCII-Zeichen ermitteln 

Var$=PRED(Expr$) 


P Liefert das nächstkleinereASCII-Zeichen des ersten Zeichens von 
^ ‘Expr$\ indem dessen ASCII-Wert um I vermindert wird. 


SUCC($) nächstgrößeres ASCII-Zeichen ermitteln 

Var$=SöCC(Expr$) 



Liefert das nächstgrößere ASCII-Zeichen des ersten Zeichens von 
'Expr$\ indem dessen ASCII-Wert um I erhöht wird. 


10.4. STRING - FORMATIERUNG 


SPACE$() 

Leerzeichen-String bilden 

, Var$=SPACE$(Anzahl) 



Es wird ein String aus ‘Anzahl’ Leerzeichen gebildet. 



STRING$() Mehrfach-Zeichenkette bilden 

Var$=STRING$(Anzahl,''Text'') 

Var$=STRING$(Anzahl,Ascii) 


i Es wird ein String gebildet, der sich daraus ergibt, daß Text’ so oft 
verkettet wird, wie in ‘Anzahl’ angegeben. Text’ kann auch als 
Variable oder Stringausdruck angegeben werden. 

Soll ein einzelnes Zeichen multipliziert werden, kann statt Text’ 
auch der ASCII-Wert des Zeichens verwendet werden. Die ent¬ 
stehende Zeichenkette darf nicht mehr als 32767 Zeichen enthal¬ 
ten (maximale Größe einer Stringvariablen). 
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10^. STRING-UMWANDLUNG 


LCASE$0 PC-spezifische Umwandlung groß => klein 

Var$=LCÄSE$(Quell$) 

M Trifft LCASE$() beim Lesen von ‘Quell$’ auf einen 
® großgeschriebenen Buchstaben (ASCII-Werte 65 bis 90), so wird 
dieser in den entsprechenden Kleinbuchstaben (ASCII-Werte 97 
bis 129) umgewandelt. Alle anderen Zeichen (auch Umlaute) 
bleiben unverändert. 


L0WER$() Buchstabenumwandlung groß => klein 

Var$=LCWER$(Quell$) 



Es gelten die gleichen Erläuterungen wie zu LCASE$(), nur daß 
LOWER$() zusätzlich auch großgeschriebene PC-Umlaute (Ä,Ö, 
Ü) in Kleinbuchstaben (ä, ö, ü) wandelt. 


UCASE$() PC-spezifische Umwandlung klein => groß 

Var$=UCASE$(Quell$) 

UCASE$() bildet die exakte Umkehrung der Funktion LCASESQ. 
Weitere Erläuterungen finden Sie dort. 


UPPER$() Buchstabenumwandlung klein => groß 

Var$=UPPER$(Quell$) 

H UPPER$() bildet die exakte Umkehrung der Funktion LOWER$(). 
^ Weitere Erläuterungen finden Sie dort. 


XLATE$() Buchstabenumwandlung nach freier Tabelle 

Var$=XLATE$(Quell$,Feldl()) 



Diese Stringfunktion wandelt den vorgegebenen String ‘Quell$’ 
anhand einer frei definierbaren Wertetabelle ‘Fe/dlO’ in einen 
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anderen String um.‘Fe/d|0*istein Bytefeld mit 256 Elementen,die 
jeweils den entsprechendenASCII-Wert darstellen. In diese Tabel¬ 
le können nun nach eigenem Ermessen ASCII-Werte eingetragen 
werden, in die dann die einzelnen Zeichen des Ursprungsstrings 
‘QuellS’ umgewandelt werden. 

Z.B.: 


a$=:''GFA-BASIC ist super! 
OPEN ' ' 0 " ,(tl, "vid: ' ' 

DIM ctl(255) 

DIM dt I(255) 

DIM )ct! (255) 

FOR iSc-O TO 255 
Ct I (iSc)=iSc 
dt I (ii)=ii 
NEXT ii 

FOR i&=0 TO 127 
REPEAT 

IIll=RAND(128) 

UNTIL )tt! (ml )=FALSE 
REPEAT 

nl=255-RAND(128) 

UNTIL )ct! (nl )=FALSE 
Ictl (ml )=TRUE,)ttl (nl )=TR 
SWAP ctI(ml),CtI(nl) 
dt I(ml)=nl,dtI(nl)=ml 
NEXT iS 

b$=XLATE$(a$,Ctl 0) 

PRINT "TEXT ; ";a$;CHR$( 
PRINT #1,''CODE : '';b$; 
PRINT CHR$( 10) ; "DECODE: " 
PRINT XLATE$(bS,dtl()) 

CLOSE #1 


I! "// Arbeitsstring 
// Video-Kanal öffnen 
// XLATE-Code-Tabelle 
// XLATE-Decode-Tabelle 
// Kontrolltabelle 
// alle ASCII's... 

// Tabelle 1 belegen 
// Tabelle 2 belegen 

// halbe ASCll-Tabelle 

// ein Zeichen aus der 
// 1. ASCII-Halfte 
// ASCII-Position frei? 

// ein Zeichen aus der 
// 2. ASCII-Hälfte 
// ASCII-Position frei? 
// Kontrollpos. belegen 
// Zeichen vertauschen 
// Decode-Tab. tauschen 

// Verschlüsselung 
10)// Orig.-Text ausgeben 
// Code-Text ausgeben 

// decodieren u.ausgeben 
// 'VID;' schließen 


Notizen: 
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I I. ARITHMETIK 


I I. I. ARITHMETISCHE OPERAIOREN 


+ 

Additionsoperator 

- 

Subtraktionsoperator 

* 

Multiplikationsoperator 

1 

Divisionsoperator 

A 

Potenzierungsoperator 

= 

Zuweisungsoperator 

MOD Modulo-Operator 

Z.B. 

al = 113''((( 34 + 6 )*2-50/2 ) MOD 5) (ergibt 1) 

1 1.2. 

OPERATOREN 

INCL. VARIABLENZUWEISUNG 

+ = 

Variablenzuweisung incl. Addition 

- = 

Variablenzuweisung incl. Subtraktion 

* = 

Variablenzuweisung incl. Multiplikation 

/ = 

Variablenzuweisung incl. Division 

%= 

Variablenzuweisung incl. Modulo-Berechnung 

&= 

Variablenzuweisung mit Bit-Konjunktion 

1 = 

Variablenzuweisung mit inclusiver Bit-Disjunktion 

A s 

Variablenzuweisung mit exclusiver Bit-Disjunktion 


z.B. 


a%=16,b%=4 

// 

// 

weise a% den Wert 16 
und bl den Wert 4 zu 

al-=b% 

// 

subtrah. bl von al 

PRINT a% 

// 

gibt 12 aus 

b%*=a% 

// 

üiultipl. bl mit al 

PRINT b* 

// 

gibt 48 aus 

at + = 8 

// 

addiere 8 zu al 

PRINT a% 

// 

gibt 20 aus 

bl %= al 

// 

Modulo von bl durch al 

PRINT bl 

// 

gibt 8 aus 
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I 1.3. VERGLEICHSOPERATOREN 


= 'g/e/ch’-Operator 

> 'größer o/s’-Operator 

< ‘kleiner a/s’-Operator 

<> oder >< 'ungleich'-Operator 
>= oder => ‘größer gleich'-Operator 

<= oder =< ‘kleiner gleich'-Operator 

== ‘ungefähr gleich'-Operator 

z.B. 

IF (a%=>bl OR cl=d%l AND e*<>fl 

I 1.4. LOGISCHE OPERATOREN 


AND oder && Konjunktion zweier Wahrheitswerte 

Argl AND Arg2 
Argl && Arg2 



Das Ergebnis von AND ist nur dann ‘wahr' (TRUE=-1 ),wenn beide 
Argumente 'wahr' sind. 


IF 12+4=61 AND (15/5=3) 

PRINT ''SS ist beides wahr'' 
ENDIF 


EQV 

Äquivalenz zweier Wahrheitswerte 

Argl BQV Arg2 




Umkehrung zu XOR. Das Ergebnis ist dann logisch ‘wahr', wenn 
die beiden Argumente entweder beide Vohr’oder beide ‘unwahr' 
sind. Ist nur ein Argument Vohr’und das andere nicht, wird generell 
‘unwahr' festgestellt. 


IF (2+4=19) EQV lll'O 
PRINT ''beide sind unwahr, also wahr'' 
ENDIF 
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IMP 


Implibtion zweier Wahrheitswerte 


Argl IMP Arg2 

H Eine Implikation ist nur dann 'unwahr’ (FALSE=0),wenn aus etwas 
^ Wahrem etwas Falsches folgt. D.h. das Ergebnis ist immer dann 
‘unwahr’, wenn ‘Argl’ 'wahr’ und ‘Argl’ ‘unwahr’ ist In allen 
anderen Fällen ist das Ergebnis 'wahr’. 


NOT oder! Negation eines Wahrheitswertes ' 

NOT Arg ! Arg 



Vertauscht Wahrheitswerte ins Gegenteil. 


Z.B.: 

IF NOT TRUE=FALSE 

PRINT ''nicht wahr ist auch unwahr" 
ENDIF 


OR oder || incL Disjunktion zweier Wahrheitswerte 


Argl OR Arg2 
Argl II Arg2 



Das Ergebnis von OR ist schon dann logisch 'wahr’,wenn nur eines 
der beiden Argumente 'wahr’ ist 


IF (2+4=231 OR (15/5=3) 

PRINT ''eins von beiden ist wahr'' 
ENDIF 


XOR oder excl. Disjunktion zweier Wahrheitswerte 

Argl XOR Arg2 
Argl "" Arg2 



Ausschließendes Oder. Das Ergebnis von XOR ist dann logisch 
'wahr’ (TRUE=-1), wenn nur eines der beiden Argumente 'wahr’ 
ist Sind beide oder keins wohr’, wird ‘unwahr’ (FALSE=0) festge¬ 
stellt 
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IF (2+4=6) XOR (15/5=3) 

PRINT ''beide sind wahr, also unwahr'' 
ENDIF 


I I S. OPERAIOREN - PRIORITÄT 


höchste Priorität 


0 

Klammern 

+ 

Stringaddition 

= <> 

1 

V V 
It 

A 

II 

j- Stringvergleichsoperatoren 

1 

+ 

Vorzeichen 

A 

Potenzierung 

* / 

Multiplikation und Division 

DIV MOD Ganzzahldivision und Modulo 

+ - 

Addition und Subtraktion 

= <> 1 

> < 

>= < = 

|- num.Vergleichsoperatoren 

1 

AND OR 1 

XOR 

IMP EQV 

bit-arithmetische Operatoren 

1 

AND OR 1 

XOR 

IMP EQV 

|- logische Operatoren 

1 


NOT bit-arithmetische Negation 

NOT logische Negation 


geringste Priorität 
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I 1.6. MATHEMATISCHE 

GRUNDFUNKTIONEN 


DEC / - 

Integer-Dekrementierung um 1 

1 

; DEX: Var 


Var-- 




Vermindert den Wert von 'Vor' um I. 


INC / ++ 

Integer-Inkrementierung um 1 

INC Var 

Var++ 



Erhöht den Wert von ‘Var' um I. 


ADD{AD} 

Additionsbefehl 

ADD Var,Wert 



Ä Addiert ‘Wert’ zu ‘Var’ und legt das Ergebnis in 'Vor' ab. 


ADD() 

Integer-Additionsfunktion 

1 Var=ADD(Wertl,Wert2) 



P Addiert‘Wert/*zu‘Wert2'und liefert das entsprechende Integer- 
Ergebnis. 


Anmerkung: 

Werte-Parameter können grundsätzlich in GFA-BASIC als 
Konstante,Variable, Ausdruck oder Funktion angegeben wer¬ 
den. Bei Integer-Operationen - wie z.B.ADDQ - werden gfis. 
Realwerte vorher intern auf ihren Integeranteil reduziert Die 
Inhalte übergebener Variablen-Parameter bleiben dabei je¬ 
doch unverändert (Ausnahmen: z.B. "Var =+1 
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DIV 

Divisionsbefehl 

DIV Var,Wert 



Dividiert 'Vor' durch “Wert’ und legt das Ergebnis in ‘Vor’ ab.Wird 
in ‘Vor’ eine Integer-Variable angegeben, wird ein evtl, in ‘Wert’ 
angegebener Realwert als Integerwert behandelt. 



DIVO 

Integer-Divisionsfunktion 

Var=DIV(Wertl,Wert2) 



Dividiert ‘Wert/’ durch ‘Wert2’ und liefert das entsprechende 
Integer-Ergebnis. Siehe Anmerkung zu ADDQ. 



MUL { Mu } Multiplikationsbefehl 

MUL Var, Wert 


Multipliziert‘Vor’mit'Wert’und legt das Ergebnis in‘Vor’ab.Wird 
in ‘Vor’ eine Integer-Variable angegeben, wird ein evtl, in ‘Wert’ 
angegebener Realwert als Integerwert behandelt. 


MUL() 

Integer-Multiplikationsfunktion 

Var=MUL(Wert1,Wert2) 



Multipliziert ‘Wert/’ mit ‘Wert2’ und liefert das entsprechende 
Integer-Ergebnis. Siehe Anmerkung zu ADDQ. 



SUB 

Subtraktionsbefehl 

SUB Var,Wert 



Subtrahiert ‘Wert’ von ‘Vor’ und legt das Ergebnis in ‘Vor’ ab. 
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SUBQ 

Integer-Subtraktionsfunktion 

Var=SUB(Wert1,Wert2) 



Subtrahiert "Wert!’ von ‘Wert/' und liefert das entsprechende 
Integer-Ergebnis. Siehe Anmerkung zu ADDQ. 


I 1.7. SPEZIELLE ARmHMEnK 


ABSQ 

Absolut-Betrag ermitteln 

Var=ABS(Arg) 


ABS() gibt das Argument'Arg'vorzeichenlos (absolut) als positiven 
Wert zurück. 

CFLOATO 

Integerwert in Fließkommawert wandeln 

Var=CFLOAT(Arg) 


Wandelt 'Arg' (/ntegerwert) in eine Realzahl um. CFLOATQ bildet 
^ die Umkehrfunktion zu CINTO- 

CINTO 

1 

Fließkommawert in Integerwert wandeln 

1 Var=CIKr(Arg) 




Wandelt ‘Arg’ (Realwert) in eine Integerzahl um. Im Gegensatz zu 
INTQ wird die Zahl vorher exakt gerundet. CINTQ bildet die 
Umkehrfunktion zu CFLOATQ- 


EYENQ 

Zahl auf‘gerade’ testen 

Var=EVEN(Arg) 



Liefert -1 (TRUE), wenn ‘Arg’ gerade ist. Sonst wird 0 (FALSE) 
geliefert 
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FRACQ 

Nachkommastellen ermitteln 

Var=FRAC(Arg) 

: 


Liefert den Dezimalanteil (sprich: die Nachkommastellen) von 
"Arg’, falls dies ein Realwert ist. Ist "Arg' ein Integerwert, wird 0 
geliefert. 



MODO 

Integer-Modula-Funktion 

Var=MOD(Wert1,Wert2) 


Berechnet den ganzzahligen Rest der Integer-Divison "Wert!’ 
durch "Wert!’ (Modulo) und liefert das entsprechende Integer- 
Ergebnis. Siehe Anmerkung zu ADDQ. 

ODDQ 

Zahl auf‘ungeraiJe’ testen 

Var=ODD(Arg) 


Liefert-1 (TRUE),wenn‘Arg’ungeradeistSonstwird O(FALSE) 

^ geliefert. 

SGNO 

Vorzeichen ermitteln 

Var=SGN{Arg) 


Liefert das Vorzeichen von "Arg’: 


1 wenn "Arg’ größer 0 


-1 wenn "Arg’ kleiner 0 


0 wenn‘A/g* gleich 0 
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I 1.8. RUNDUNGSFUNKTIONEN 


CEILO 

auf nächstgrößere Ganzzahl aufrunden 

Var=CEIL(Arg) 


Diese Funktion entspricht bei Realwerten mit Nachkommaanteil 
INT()+I. Bei Integerwerten ist sie mit INT() identisch. Siehe 
Erläuterungen zu INTQ. 

FIX() 

vorzeichen-unabhängig auf Ganzzahl runden 

Var=FIX(Arg) 



P Liefert den ganzzahligen Anteil (Integeranteil) der Real-Zahl 'Arg’. 
Die Funktion rundet Zahlen weder auf noch ab, sondern entfernt 
nur die Nachkommastellen. Im Minusbereich wird dadurch der 
Minuswert kleiner. 

Z.B.; 

FIX(-12.33) ergibt -12 
FIX(33.171 ergibt 33 

FIX() ist identisch mit TRUNCQ 


FLOORO vorzeichen-abhängig auf Ganzzahl abrunden 

Var=INT(Arg) 



Wandelt die Real-Zahl 'Arg’ in eine Integer-Zahl. Es wird die 
nächstkleinere Ganzzahl zurückgegeben. Im Minusbereich wird 
dadurch der Minuswert größer. 


INT(-12.33) ergibt -13 
INT(33.17) ergibt 33 


FLOOR() ist identisch mit INTQ. 
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INTO vorzeichen-abhängig auf Ganzzahl abrunden 

Var=INT(Arg) 



INT() ist identisch mit FLOORQ- Weitere Erläuterungen finden 
Sie dort. 


PRED() 

nächstkleinere Ganzzahl ermitteln 

Var=PRED(Arg) 



Liefert die nächstkleinere Integerzahl vor ‘Arg’. Bei ‘Arg’ als 
Realzahl werden die Nachkommastellen intern vor der 
Funktionsausführung integriert (also: Var=PRED (INT (Arg) )). 



ROUNDQ 

Rundungs-Funktion 

Var=ROUND(Arg [.Stelle] ) 




Rundet ‘Arg’ mathematisch exakt auf eine ganze Zahl. Ist der 
Nachkomma-Anteil von ‘Arg’ kleiner als 0.5, so wird zur kleineren 
Ganzzahl gerundet. Sonst zur nächst größeren.Wird der optionale 
Parameter ‘Stelle’ verwendet, wird auf die angegebene 
Nachkommastelle gerundet Ist ‘Stelle’ negativ, wird auf die 
entsprechende ‘Stelle’ vor dem Komma gerundet 


succo 

nächstgrößere Ganzzahl ermitteln 

Var=SÜCC(Arg) 



■ Liefert die nächstgrößere Integerzahl nach ‘Arg’. Bei ‘Arg’ als 
Realzahl werden die Nachkommastellen intern vor der 
Funktionsausführung integriert (also: Var=SUCC (INT (Arg) )). 


TRUNCO vorzeichen-unabhängig auf Ganzzahl runden 

Var=TRUNC(Arg) 


TRUNCQ ist identisch mit FIXQ- Erläuterungen finden Sie dort. 
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I 1.9. ALGEBRAISCHE FUNKTIONEN 


EXPO 

Exponentialfunktion 

Var=EXP(Arg) 



Berechnet das Ergebnis des Exponenten'Arg'zur Basis‘e’ (Euler’sche 
» ZoW=2.7l8...). 


Gleichbedeutend mit der Potenz: 

2.718281828462 '' 'Arg' 

EXP() ist die Umkehrfunktion zu LOGQ. 


LOGO 

natürlicher Logarithmus 

Var=LOG(Arg) 



Uefert den entsprechenden Exponenten zur Basis 'e' (Euler’sche 
“ ZoW: 2.718281828462). 


Die Potenz dieser Basis mit diesem Exponenten ergibt dann 
rückschließend 'Arg': 

zu LOGO: 'Arg' = eLOG('Arg') 

zu LOG2(): 'Arg' =2'^ LOG2('Arg') 

zu LOG 10(): 'Arg' = 10 LOG I O('Aig') 

LOGO ist tlie Umkehrfunktion zu EXPQ- 


LOG20 binärer Logarithmus 

Var=L0G2(Arg) 



Liefert den entsprechenden Exponenten zur Basis 2 (lat: bl). 
Weitere Erläuterung siehe bei LOGQ 
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LOG 100 dekadischer Logarithmus 

Var=LOG(Arg) 


^ Liefert den entsprechenden Exponenten zur Basis 10 (griech.: 
deko). Weitere Erläuterung siehe bei LOGO 


SCALEQ Skalierungsfunktion 

Var=SCALE{Faktor,Multiplikator,Divisor) 


Das Integer-Word ‘Faktor’ wird mit dem Integer-Word 
‘Multiplikator’ multipliziert und das daraus errechnete 32Bit- 
Ergebnis mit dem Integer-Word'Div/sor’dividiert.Das Endergebnis 
wird dann wiederum als Integer-Word geliefert. 


Bei der Umrechnung von z.B. auflösungsabhängigen Bildschirm¬ 
koordinaten leistet diese Funktion wertvolle Dienste. Sie arbeitet 
gegenüber ' Argl*Arg2/Arg3 ' geschwindigkeitsoptimiert. 


SQR() Wurzelfunktion 

Var=SQR(Arg) 


i Es wird die Z.Wurzel von ‘Arg’ geliefert.Wird eine höhere Wurzel 
* gebraucht, so ist diese über den Umweg der Potenzierung mit 
gebrochenem Exponenten zu berechnen: 

3. Wurzel aus ‘Arg’: ‘Arg’'^ (1/3) 

4. Wurzel aus ‘Arg’: ‘Arg’ (I 14) 

...etc. 


11.10. KOMBINATIONSFUNKTIONEN 


COMBINQ Binominal-Koeffizienten ermitteln 

Var=COMBIN(Menge,Teilmenge) 



Diese interessante mathematische Funktion berechnet die Anzahl 
der Möglichkeiten,die sich ergeben,wenn man aus der Grundmenge 
'Alenge' eine ‘Teilmenge’ ziehen will (z.B. Lotto -> 
COMBIN(49,6 )). Dabei wird davon ausgegangen,daß die einmal 
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gezogenen Elemente nicht wieder zurVerfügung stehen. Es ist also 
ausgeschlossen, daß sich eine 'COMBINation' wiederholen kann. 

‘Teilmenge’ kann dabei logisch nur im Bereich 0 bis ‘Menge’ 
liegen. 

COMBIN(m,t) entspricht: 

VARIATim,t)/FACTIt) 

oder auch 

FACTlm)/(FACTIt)*FACT(m-t)) 


FACTO 

Fakultätsfunktion 

Var=FACT ( Menge) 




FACTO liefert die Fakultät der Ganzzahl ‘Menge’. Die Fakultät 
einer ‘Älenge* ist definiert als das Produkt aller Ganzzahlen dieser 
‘Menge’. 


Z.B.; FACTI7) entspricht | *2*3*4*5*6*7 = 5040 


PERMUTO Permutationsfunktion (Variation) 

Var=PERMUTIMenge,Teilmenge) 



Unter einer TERMUTation’ ist die Berechnung aller möglichen 
Kombinationen einer‘Teilmenge’von Elementen innerhalb einer 
‘Menge’von Elementen. Te//menge’kann dabei logisch nur im 
Bereich 0 bis ‘Menge’ liegen. 


Im Gegensatz zu COMBINQ wird davon ausgegangen, daß nach 
jeder Ziehung die gezogenen Elemente wieder zur Verfügung 
stehen. 


Z.B.: 


Eine Wohngemeinschafts-’Menge’ von 5 Bewohnern will 
ermitteln, wieviele Kombinationen möglich sind, wenn 
immer jeweils eine Teilmenge’ von zwei Bewohnern zu¬ 
sammen die wöchentliche fflege des gemeinsamen Gar¬ 
tens (zwei Beete) übernehmen und dabei aber jeder 
Bewohner, der schon einmal ‘dran’ war, wieder zur 
Kombination mit den anderen Bewohnern für eine weitere 
‘Teilmenge’ zurVerfügung steht.Außerdem soll gegeben 
sein, daß jeder der beiden Bewohner jeweils nur für eines 
der beiden Beete zuständig ist und nach jedem Durchgang 
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jeder Bewohner mindestens einmal an jedem der beiden 
Beete beschäftigt war. 

PERMUT (5,2) ergibt dann 20. Das heißt daß erst nach 
zwanzig Wochen eine identische Kombination auftritt. 

Also eine Paarung wieder aufeinander trifft von der beide 
wieder an denselben Beeten wie vor 20 Wochen beschäf¬ 
tigt sind. 

PERMUT (m, t) ist identisch mit einem auf ‘t’ Multiplikationen 
beschränkten FACT(m). 

Z.B. PERMUT(9,6): 9*8*7*6*5*4 = 60480 

PERMUT (m, t ) ist auch idenstisch mit der Division der Fakultät 
von 'm' durch die Fakultät der Differenz aus ‘m’ und ‘t’. 

z.B. FACT(9)/FACT(9-6) : 

(9*8*7*6*5*4*3*2*l) DIV (3*2*I ) = 60480 


VARIATQ Permutationsfunktion (Variation) 

Var=VARIAT(Menge,Teilmenge) 


VARIAT() ist identisch mit PERMUTO. Erläuterungen finden Sie 
dort. 


Il.ll. VERGLEICHS-OPERATIONEN 


IMAX() Größten Integer-Wert ermitteln 

Var=IMAX(E>53rl,E>!pr2 [,Ei<pr3, . .. ]) 



Gibt den größtenWerteinerWerteliste im Integer-Format zurück. 
’Expr" kann eine beliebiger numerischer Ausdruck, ein Wert oder 
eine numerische Variable sein. 
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IMINQ Kleinsten Integer-Wert ermitteln 

j Var=IMIN(E}5)rl,E!q3r2 [,E>pr3,... ]) 

Gibt den kleinsten Wert einer Werteliste im Integer-Format 
zurück. ‘Expr’ kann eine beliebiger numerischer Ausdruck, ein 
Wert oder eine numerische Variable sein. 


MAX() Größten Realwert ermitteln. 

Var=MAX(Exprl,Expr2 [,Expr3,...]) 

Gibt den größten Wert einer Werteliste im Realformat zurück. 
'Expr' kann eine beliebiger numerischer Ausdruck, ein Wert oder 
eine numerische Variable sein. 


MINO 

Kleinsten Realwert ermitteln 

Var=MIN (Expr1,Expr2 [,Expr3,. 

..]) 


P Gibt den kleinsten Wert einer Werteliste im Realformat zurück. 
‘Expr* kann eine beliebiger numerischer Ausdruck, ein Wert oder 
eine numerische Variable sein. 


11.12. BEREICHSÜBERPRÜFUNG 


BOUNDQ Prüfung auf Bereichsüberschreitung 

Var=BOUND (Wert, Minimum, Maximum) 


Diese Funktion überprüft, ob sich 'Wert' innerhalb des Bereichs 
^ zwischen '/\^inimum’und ‘Maximum’ (beides inclusive) befindet. 
Falls ja, wird "Wert’ unverändert wieder zurückgegeben. Im nega¬ 
tiven Fall wird die Fehlermeldung ‘Bereichsfehler’ ausgelöst. 

Wer diese Fehlermeldung umgehen will, wird die folgende kleine 
Funktion bemühen müßen. Sie liefert entweder den Wert 0 
(FALSE),wenn 'Wert' außerhalb,bzw.-l (TRUE),wenn 'Wert' 
innerhalb des gültigen Wertebereichs (beides inclusiv) liegt: 

? @Xbound(6.3412,2.55,6.3411 -> liefert Null 

DEFFN Xbound(Wert,Minimum,Maximum)=... 

...Wert=>Minimum AND Wert<=Maximum 
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BOUNDBO Prüfung auf Absolut-Byte (0 bis 255) 

Var=BOUNDB(Wert) 


Ä Durch BOUNDBO kann festgestellt werden, ob sich ‘Wert’ als 
*'« Absolut-Byte (0 bis 255) darstellen läßt. Falls nicht, wird die 
Fehlermeldung ‘Bereichsfehler' ausgelöst. 


BOUNDCQ Prüfung auf Cardinal-Word (0 bis 65535) 

Var=BOUNDB(Wert) 



BOUNDCO ermittelt, ob "Wert’ im 'CARDINAL’-Bereich (0 bis 
65535) liegt. Falls nicht, wird die Fehlermeldung ‘Bereichsfehler' 
ausgelöst. 


BOUNDWO Prüfung auf Signed-Word (-32768 bis +32767) 

Var=BOUNEW{Wert) 


p BOUNDWO ermittelt ob ‘Wert’ im WORD’-Bereich (-32768 bis 
^ +32767) liegt. Falls nicht wird die Fehlermeldung ‘Bereichsfehler' 
ausgelöst. 


11.13. ZUFALLSWERT- ERZEUGUNG 


RANDQ 

16Bit-lnteger-Zufellszahl 

Var=RAND(n) 




übergibt eine vorzeichenlose 16Bit-lnteger-Zufallszahl aus dem 
Zahlenbereich 0 (incl.) und ‘n’ (excl.). Größere Werte als 65535 
werden durch 'n' Mod 65535 auf den zulässigen Bereich 
zurückgerechnet (s. Beispiel zu XLATE$0). 


Beachten Sie auch das Beispiel zu STR$(). 
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RANDOMQ 

32Bit-lnteger-Zufellszahl 

Var=RANDai(n) 



Übergibt eine 32Bit-lnteger-Zufallszahl aus dem Integer- 
Zahlenbereich 0 (incl.) und ‘n’ (excL), wobei 'n' auch negativ sein 
kann (signed). 



RANDOMIZE {RA} 

Zufallszahlengenerator-Init 

RANDCMIZE [Start] 



i Inistialisiert die Zufallszahlengeneratoren für RNDQ. RANDQ 
^ und RANDOMQ mit einem Zufallswert. RANDOMIZE wird 
ohne Parameter intern bei jedem Programmstart ausgeführt. 
RANDOMIZE 0 hat denselben Effekt 

Bei Verwendung des optionalen Parameters ‘Start’ wird der 
Generator mit diesem 'Stört'-Wert initialisiert. Bei Mehrfachstart 
mit immer demselben ‘Stort'-Wert wird auch immer dieselbe 
Zufallszahlenreihe generiert. 


RNDQ 

Dezimalstellen-Zuhllszahl 

Var=RND[(0)] 



es wird ein I Sstelliger Zufalls-Wert im Bereich zwischen 0 (inclusive) 
und I (exclusive) geliefert. Die nachgestellte Klammer ist ein 
Scheinargument und kann vernachlässigt werden. 


Notizen: 
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12. TRIGONOMETRIE 
12.1. GRADUMWANDLUNG/PI 


DEGQ Umwandlung von Bogenmaß in Grad 


Grad=DBG(Bogenmaß) 


Rechnet das angegebene 'Bogenmaß^ in das Gradmaß (DEGree) 
um (entspricht: ‘Bogenmaß* * 180/PI). 


PI 

Kreiszahl 

PI 



i Steht stellvertretend für die konstante Kreiszahl PI, die uns von 
dem griechischen Philosophen und Mathematiker Arc/i/medes von 
Syrakus (287-212 v.Chr.) beschert wurde. Sie ergibt sich aus der 
Division des Umfangs eines Kreises durch seinen Durchmesser. 


RADQ Umwandlung von Grad in Bogenmaß 

Radian=RAD(Gradwinkel) 



Rechnet den angegebenen ‘GradwinkeT in das Bogenmaß (Radian) 
um. (entspricht: 'Gradwinkel’ *PI /1 80). 


I 2.2. RfVRALLELE TRIGONOMETRIE 


ACOSO 

Arcus-Cosinus 

Radian=ACOS(Cosinus) 

Grad=DBG(ACOS(Cosinus)) 



■ Es wird ein 'Cos/nus'-Wert (Ankathete durch Hypothenuse) 
übergeben, aus dem das dazugehörige Bogenmaß (Radianwinkef) 
zurückgerechnet wird.Wird das Ergebnis in Grad benötigt,muß es 
mit DEG(ACOS()) gewandelt werden (entspricht: ACOS() 
*1 80/PI). 
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ASINQ 

Arcus-Sinus 

Radian=ASIN(Sinus) 
Grad=DEG(ASIN(Sinus)) 



i Es wird ein ‘S/nus’-Wert (Gegenkathete durch Hypothenuse) 
übergeben, aus dem das dazugehörige Bogenmaß (Radianwinkel) 
zurückgerechnet wird.Wird das Ergebnis in Grad benötigt muß es 
mit DEG(ASIN()) gewandelt werden (entspricht; ASIN() 
* 180/PI). 


ATAN() 

Arcus-Tangens 

Radian=ATAN(Tangens) 

Grad=DBG(ATAN{Tangens)) 




Es wird ein Tongens’-Wert (Gegenkathete durch Ankathete) 
übergeben, aus dem das dazugehörige Bogenmaß (Radianwinkel) 
zurückgerechnet wird.Wird das Ergebnis in Grad benötigt muß es 
mit DEG(ATAN()) gewandelt werden (entspricht ATAN() 
♦180/PI). 


ATN() 

Arcus-Tangens 

Radian=DEG(ATN(Tangens)) 
Grad=DEG(ATN(Tangens)) 


ATN() ist identisch mit ATANQ. Erläuterungen finden Sie dort 

COS() 

genaue Cosinus-Funktion 

Var=COS(Bogenmaß) 
Var=COS(RAD(Gradwinkel)) 




Berechnet den Cosinus (Ankathete durch Hypothenuse) für das 
angegebene 'ßogenmoß'.Soll der Winkel als‘Grodw/nke/'ange¬ 
geben werden, muß er durch RAD(‘Gradwinkel’) gewandelt 
werden (entspricht‘Gradw/nke/'* PI/1 80). 
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COSQO schnelle Cosinus-Funktion 

Var=COSQ(Gradwinkel) 

Var=COSQ(DEG (BogenmaS)) 


P Ermittelt den auf I/I 6tel Grad interpolierten Cosinus des angege- 
^ ben ‘Gradwinkels’ (ca. 10 mal schneller als COSQ) 

Soll der Winkel als 'ßogenmoß'angegeben werden,muß er durch 
DEG(‘Bogenmaß’) gewandelt werden (entspricht'ßogenmoß' 
* I 80/PI). Die zweite Variante ist ca. 5 mal schneller als COSO- 


SINQ 

genaue Sinus-Funktion 

1 1 

1 Var=SIN (Bogenmaß) 

j Var=SIN(RAD{Gradwinkel)) 



■ Berechnet den Sinus (Gegenkathete durch Hypothenuse) für das 
angegebene 'ßogenmoß'. Soll der Winkel als ‘GradwInkeT ange¬ 
geben werden, muß er durch RAD(‘GradwinkeT) gewandelt 
werden (entspricht:‘Grodwinke/’*PI/1 80). 


SINQO schnelle Sinus-Funktion 

Var=SrNQ(Gradwinkel) 

Var=SINQ{DBG(Bogenrtaß)) 


P Ermittelt den auf I /16tel Grad interpolierten Sinus des angegeben 
^ ‘Gradwinkels’ (ca. 10 mal schneller als SINQ). 

Soll der Winkel als 'ßogenmoß'angegeben werden, muß er durch 
DEG('ßogenmoß') gewandelt werden (entspricht'ßogenmoß' 
* I 80/PI). Die zweite Variante ist ca. 5 mal schneller als SINQ 


TANQ Tangens 

Var=TAN (Bogenitiaß) 

Var=TAN(RAD(Gradwinke1)) 


P Berechnet den Tangens (Gegenkathete durch Ankathete) für das 
angegebene ‘Bogenmaß’. Soll der Winkel als ‘Gradwinkel’ ange¬ 
geben werden, muß er durch RAD(‘GradwinkeT) gewandelt 
werden (entspricht ‘Gradwinkel’*P\/ 180). 
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123. HYPERBOLISCHE TRIGONOMETRIE 


ARCOSHO 

Hyperbel-Area-Cosinus 

Radian=ARCOSH(Cosinus) 

Grad=DEG(ARCOSH(Cosinus)) 



p Es wird ein Hyperbel-’Coslnus’ übergeben.aus dem das dazugehö- 
^ rige Bogenmaß (Radianwinkel) zurückgerechnet wird. Wird das 
Ergebnis in Grad benötigt muß es mit DEG(ARCOSHO) gewan¬ 
delt werden (entspricht:ARCOSHQ * I 80/PI). 

Der Hyperbel-Area-Cosinus ist definiert durch: 

ARCOSH(s) = LOG(s+SQR(s''2-l)) 


ARSINHQ 

Hyperbel-Area-Sinus 

Radian=ARSINH(Sinus) 

Grad=DEG(ARSINH(Sinus)) 




Es wird ein Hyperbel-’S/nu$*übergeben,aus dem das dazugehöri¬ 
ge Bogenmaß (Radianwinkel) zurückgerechnet wird. Wird das 
Ergebnis in Grad benötigt muß es mit DEG(ARSINH()) gewandelt 
werden (entspricht ARSINHO*!80/PI). 


Der Hyperbel-Area-Sinus ist definiert durch: 


ARSINH(s) = LOG(s+SQR(s''2+l)) 


ARTANHQ 

Hyperbel-Area-Tangens 

Radian=ARTANH(Tangens) 

Grad=DEG(ARTANH(Tangens)) 



Es wird ein Hyperbel-Hangens’ übergeben, aus dem das dazuge- 
hörige Bogenmaß (Radianwinkel) zurückgerechnet wird. Wird das 
Ergebnis in Grad benötigt muß es mit DEG(ARTANHO) gewan¬ 
delt werden (entspricht ARTANHQ * I 80/PI). 

Der Hyperbel-Area-Tangens ist definiert durch: 

ARTANH(s) = LOG((l+s)/(l-s))/2 
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COSHQ 

Hyperbel-Cosinus 

1 Var=COSH(Bogenmaß) 

Var=COSH(RAD(Gradwinke1)) 




Berechnet den Hyperbel-Cosinus für das angegebene 'Bogenmaß'. 
Soll der Winkel als 'Gradwinkel' angegeben werden, muß er 
durch RAD('Gradwinker) gewandelt werden (entspricht: 
‘Grfldwinke;’*PI/l80). 


Der Hyperbel-Cosinus ist definiert durch: 
COSH(w) = EXP(+w)/2 + EXP(-w)/2 


SINHQ 

Hyperbel-Sinus 

Var=SINH(Bogenmaß) 
Var=SrNH(RAD(Gradwinkel)) 




Berechnet den Hyperbel-Sinus für das angegebene 'Bogenmaß'. 
Soll der Winkel als 'Cradwinkel' angegeben werden, muß er 
durch RAD('Gradwlnker) gewandelt werden (entspricht: 
'Gradwinkel'*PI/180). 


Der Hyperbel-Sinus ist definiert durch: 


SINH(w) = EXP(+w)/2 - EXP(-w)/2 


TANH() 

Hyperbel-Tangens 

Var=TANH(Bogenmaß) 
Var=TANH(RAD(Gradwinkel)) 



I Berechnet den Hyperbel-Tangens für das angegebene 'Bogenmaß'. 
^ Soll der Winkel als 'Gradwinkel' angegeben werden, muß er 
durch RAD('Gradwinker) gewandelt werden (entspricht: 
‘Grodw/nke/’*PI/l80). 

Der Hyperbel-Tangens ist definiert durch: 

TANH(w) = SINH(w) / COSH(w) 

bzw. der Hyperbel-Cotangens durch: 


coth(w) = COSH(w) / SINH(w) 
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13. MATRIZEN - MATHEMATIK 

DieWIotr/zenrechnung’istein Spezialfach der traditionellen Mathe¬ 
matik. Für die analytische Mathematik, die Statistik und z.B. auch 
bei CAD/CAM- und Raytracing-Berechnungen, der Fakturierung 
oder aber bei der Lösung linearer Gleichungs- und 
Differentialgleichungs-Systeme (Statik,Technik) ist sie von großer 
Bedeutung. 

Unter einer Matrix (lat.: Stammutter) versteht man allgemein ein 
zweidimensionales Feld. Stellen Sie sich ein Gitternetz mit der 
Ausdehnung 'Höhe' mal 'Breite' vor. Anstatt der sich ergebenden 
Flächen zwischen den Linien des Netzes setzen Sie nun numeri¬ 
sche Daten ein und erhalten so eine numerische Matrix, also ein 
rechteckiges Zahlenschema mit der beliebigen Ausdehnung ‘Zei¬ 
len’mal 'Spalten'. Im Gegensatz zur Bildschirmgrafik wird hier die 
vertikale Dimension 'Zeilen' (in der Grafik dieY-Richtung) zuerst 
genannt und ihr folgt die horizontale Dimension 'Spalten' (in der 
Grafik die X-Richtung). 



N- 


Spalten 

-► 

Jk 

1 

a(1,1) 

a(1,2) 

a(1.3) 


a(1,n) 

c 

a(2,1) 

a(2.2) 

a(2,3) 


a(2,n) 

*03 

N 

a(3,1) 

a(3,2) 

a(3,3) 


a(3,n) 

E 






1 

w 

a(m,1) 

a(m,2) 

a(m,3) 


a(m,n) 


Um ein solches Schema übersichtlich und rationell zu speichern 
und zu bearbeiten wird ein Feld mit Fließkommavariablen einge¬ 
richtet, auf welches sich dann die MAT-Befehle sehr vorteilhaft 
anwenden lassen. 

DIM Matrix(Zeilen,Spalten) 

Soll innerhalb dieser Matrix ein bestimmtes Element angespro¬ 
chen werden, so ist es mit seiner Indizierung in den beiden 
Dimensionen ausreichend zu identifizieren. 

Z.B.; a (5,7) ='Wert' 

ordnet dem Element in der 5. Zeile und 7. Spalte den angegebenen 
‘Wert’ zu. 
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13.1. MATRIZEN-ORGANISATION 


MAT ABS { M ABS } Inhalt der Matrix absolut setzen 

MAT ABS FeldO 

Löscht alle negativenVorzeichen der Matrix und erzeugt damit also 
ausschließlich positive (absolute) Werte. 


MAT BASE { M BASE } Start-Index für MAT-Befehle setzen 

MAT BASE 0 
MAT BASE 1 



MAT BASE bestimmt den Startindex der Felder für weitere MAT- 
Befehle. Ist allerdings OPTION BASE I eingeschaltet, bleibt 
MAT BASE 0 wirkungslos, da ja dann keine Null-Elemente in den 
Feldern existieren. Ist dagegen OPTION BASE 0 aktiv (Default 
bei Programmstart), kann mit MAT BASE 0 bestimmt werden, daß 
auch die Null-Elemente in die Berechnungen mit einbezogen 
werden. Default-Einstellung bei Programmstart ist MAT BASE I. 


MAT CLR {MC} Inhalt einer Matrix löschen 

MAT CLR FeldO 


Ä Setztalle Elemente der angegebenen Matrix‘Fe/d()’auf den Wert 
^ Null (entspricht: ARRAYFILL FeldQ.O). 


MAT NEG { M NEG } Matrizen-Inhalt negieren 

MAT NEG FeldO 

■ Vertauscht die Vorzeichen des Matrizen-Inhalts. Aus positiven 
^ Werten werden negative und umgekehrt (entspricht: MAT MUL 
FeldO.-1). 
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MAT ONE {MONE} 

Einheitsmatrix erzeugen 

MAT CNE FeldO 



Unter einer Einheitsmatrix versteht man die quadratische Matrix 
“Feld" (Zeilen- und Spaltenanzahl sind gleich), in welcher durch 
MAT ONE die Elemente der fallenden Diagonale ( Feld(l,l)... 
Feld(n,n) ) mit dem Wert I belegt werden. Alle anderen Elemente 
sind Null. Eine mit einer Einheitsmatrix multiplizierte andere 
Matrix ergibt immer wieder die andere Matrix, sie verhält sich wie 
bei einer normalen Multiplikation mit I. 


MATSET{ms} 

Matrix mit einem Wert füllen 

MAT SET FeldO =Wert 



Durch MAT SET kann die Matrix ‘Feld’ mit dem angegebenen 
^ 'Wert’vorbelegtwerden (entsprichtARRAYFILL FeldO.Wert). 
Es wird unter OPTION BASE 0 generell auch das Null-Element 
mit belegt 


MATTRANS{mt} 

Matrix transponieren 

MAT TRANS Ziel()=Quell{) 

MAT TRANS FeldO 



Eine Matrix wird transponiert, indem die Zeilen und Spalten 
vertauscht werden. 



Bei der ersten Syntax-Variante wird das zweidimensionale Feld 
‘Que//0'transponiert und in das entgegengesetzt dimensionierte 
Feld ‘Ziel(y geschrieben. ‘QuellQ’ bleibt dabei unverändert, 
wogegen der Inhalt von ‘ZielQ’ verlorengeht 
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DIM Feld2(5.3) DIM Feld I (3,5) 


aus; 


0 

5 

10 

1 

6 

11 

2 

7 

12 

3 

8 

13 

ID 

9 

14 


wird: 


0 

1 

2 

3 



a 

7 

8 

5 


D 


n 



Die zweite Syntax-Variante ist nur auf quadratische Matrizen 
anwendbar. Dabei wird die Matrix ‘Fe/d()' ebenfalls wie beschrie¬ 
ben transponiert, jedoch dann wieder in das Ursprungsfeld ‘Feld()’ 
zurückgeschrieben. Der ursprüngliche Inhalt von 'FeldQ' geht 
dann zwar verloren, kann aber nötigenfalls durch eine erneute 
Transponierung restauriert werden. 


MAT TRI {M TRI} 

Dreiecksmatrix erzeugen 

MAT TRI FeldO ,Mocäus 


Eine Dreicksmatrix wird erzeugt indem entweder die Elemente 
^ oberhalb ('Modus’=0) oder die Elemente unterhalb {‘Modus’- 1) 
der Diagonalen (Feld(l,l)...Feld(n,n)) einer quadratischen Matrix 
‘FeldQ’ gelöscht werden. 

Z.B. MAT TRI FeldQ, 1 


0,3,6 
aus: 1,4,7 

2,5,8 

0,3.6 
wird: 0,4,7 

0,0,8 
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13.2. MATRIZEN - OPERATIONEN 


MAT CPY { M CP } Matrizen (-Ausschnitt) kopieren 

MAT CFY Ziel()=Quell() [,z3,s3] 

I MAT CPY Ziel(zl,sl)=Quell() [,z3,s3] 

I MAT CPY Ziel()=Quell(z2,s2) [,z3,s3] 

MAT CPY Ziel(zl,sl)=Quell(z2,s2) [,z3,s3] 



MAT CPY ermöglicht das Kopieren einer beliebigen ganzen Matrix 
oder auch einer beliebigen Teil-Matrix in eine zweite beliebige 
ganze Matrix oder auch beliebige Teil-Matrix. So ist es z.B. möglich, 
eine größere Anzahl kleinerer Matrizen in einer entsprechend 
großen ‘Mutter-Matrix gesammelt anzuordnen und nur bei Bedarf 
in eine Arbeitsmatrix zu übertragen.Viele MATxxx-Befehle (z.B. 
MAT INPUT, MAT READ oder MAT PRINT) lassen sich dann 
sehr rationell auf die Gesamt-Matrix anwenden. 


MAT CPY Ziel()=Quell() 


Kopiert - bei gleicher Dimensionierung der beiden Felder - die 
‘Que//0'-Matrix komplett in die ‘Z/e/()’-Matrix. Sind die 
Dimensionierungen der beiden Matrizen verschieden, werden nur 
soviele Zeile und Spalten kopiert, wie die jeweils kleinere Matrix 
aufweist. 

MAT CPY Ziel(zl,sl)=Quell() 


Kopiert den Inhalt der'Que//()'-Matrix ab deren Startindex in die 
•Ziel(y. Matrix. Und zwar dort beginnend mit der Zeile ‘z/* und 
der Spalte 's/'. Es werden maximal soviele Zeilen und Spalten 
kopiert, wie entweder die ‘Que//(j'-Matrix aufweist oder wie 
maximal in die ‘Z/e/O'-Matrix ab hineinpassen. 

MAT CPY Ziel()=Quell(z2,s2) 


Kopiert eine Teilmatrix aus ‘Quell()' ab der Zeile ‘z2' und der 
Spalte ‘s2’ an den Startindex der ‘Z/e/(/-Matrix. Es werden hier 
nur maximal soviele Zeilen und Spalten kopiert wie entweder in 
die ‘Z/e/()’-Matrix hineinpassen oder wie maximal in der‘Que//0'- 
Matrix ab ‘i2,s2‘ zur Verfügung stehen. 

MAT CPY Ziel(zl,sl)=Quell(z2,s2) 


Das Verfahren dieser Variante ergibt sich logisch aus den beiden 
vorher beschriebenen Varianten. 


e 
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Option 'z3,s3' 


Die optionalen Parameter ‘z3,s3’ gelten für alle Varianten. Und 
zwar lönn dadurch bestimmt werden, daß maximarzS'Zeilen und 
‘s3’Spalten kopiert werden. Stehen soviele Zeilen und Spalten in 
einer der beiden betroffenen Matrizen nicht zurVerfügung,werden 
wieder nur soviele Zeilen kopiert, wie maximal möglich oder 
maximal nötig sind. 


MAT INPUT { M INPUT } Matrizen-Inhalt aus Datei lesen 

MAT INFOT #Kanal,Feld() 



Durch diesen Befehl kann eine vollständige Matrix aus der Datei 
mit dem Handle V^ona/'vom Festspeicher in das Fließkommafeld 
‘Feld(y gelesen werden. Die Datei ist dazu mit'OPEN “1”...’ zu 
öffnen. Die Daten müssen im ASCII-Format als 'CVS' 
(CommaSeparatedValue) vorliegen.Die einzelnenWerte sind durch 
Kommata oder durch CRILF ('Carriage Return’ und 'Line Feed' = 
CHR$(I3)-*'CHR$(I0)) zu trennen. MAT INPUT liest ab 
Dateibeginn zeilenweise soviele Daten, wie möglich oder nötig 
sind. 


PRINT #1, " 123.234,234.345" 

PRINT #1, "34 5.4 56,4 56.567, 567.678” 
PRINT #1, " 678.789,789.890“ 

kann z.B. in eine Matrix mit den Dimensionen 


'DIM Feld(2.3)': 

123.234,234.345,345.456 

456.567.567.678.678.789 

oder Z.B. in eine Matrix mit den Dimensionen 

'DIM Feld(3.2)': 

123.234,234.345 
345.456,456.567 

567.678.678.789 


gelesen werden. 


In diesen beiden Beispielen würde der Wert 789.890’ 
unberücksichtigt bleiben. Sind dagegen nicht genug Daten vorhan¬ 
den, wird eine Fehlermeldung ausgelöst. 
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MAT PRINT { M p } Matrizen-Inhalt ausgeben 

MAT PRINT FeldO [,Stellen, Realteil] 

MAT PRINT #Kanal,FeldO [.Stellen,Realteil] 

Gibt die beliebige Matrix ‘FeldQ’ in der ersten Variante auf dem 
^ Bildschirm oder in der zweiten Form in eine Datei mit dem Handle 
“UKanaF aus. Dies kann auch eine virtuelle Datei sein (z.B. 
‘LPTIfür Druckerausgabe oder'COM Ifür serielle Ausgabe). 

Die optionalen Parameter ‘Stellen’ und 'Reafteff'.die im Gegen¬ 
satz zu STR$0 nur beide gemeinsam verwendet werden können, 
bestimmen durch ‘Stellen’ die Anzahl der Gesamtstellen (incl. 
Dezimalpunkt und Vorzeichen), mit denen ein Matrizen-Element 
dargestellt werden soll und durch'Reafteff'die Anzahl der Stellen, 
die davon für den Nachkomma-Anteil vorgesehen werden sollen. 
Dadurch ist ein geordnete Block-Darstellung von Matrizen mög¬ 
lich, auch wenn die einzelnen Werte unterschiedliche Vor- und 
Nachkommalängen aufweisen. 


MAT READ { m read > Matrizen-Inhalt aus DATAs lesen 

MAT READ FeldO 


P Dieser Befehl liest aus DATA-Zeilen Werte ein und ordnet sie 
^ zeilenweise in der Reihenfolge ihres Erscheinens den Elementen 
der beliebigen Matrix ‘Fe/d()' zu (beachten Sie die Erläuterungen 
zu READ/DATA). Im übrigen gelten hier weitestgehend die 
Erläuterungen zu MAT INPUT. 


MAT XCPY {MX} Matrix transponiert kopieren 

I 

MAT XCPY Ziel][zl,sl])=Quell([z2,s2]) [,z3,s3] 


p MAT XCPY ist prinzipiell identisch mit MAT CPY (s. dort), nur 
^ daß hier die zu kopierende Matrix gleichzeitig transponiert wird. 
Das setzt voraus, daß im Normalfall die beiden beteiligten Felder 
‘umgekehrt’zu dimensionieren sind (DIM Ziel(z,s) / DIM 
Quell (s, z)). 

'MAT XCPY Ziel () =Quell {) ' istfunktionell gleichwertig mit 
'MAT TRANS Ziel () =Quell () '. Im Gegensatz zu MAT 
TRANS müssen hier die Dimensionierungen der beiden Felder 
nichtpassend sein.MAT XCPY liest und kopiert ohne Fehlermeldung 
immer soviele Elemente wie maximal möglich oder nötig sind. 
Dafür ist in den 'passenden' Fällen MAT TRANS schneller. 
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133. MATRIZEN-ARrmMEnK 


MAT ADD Matrizen-Inhalte addieren 

MAT ADD ZielO ,Quelll()+Quell2() 

MAT ADD Quellziel(),Wert 
j MAT ADD Quellziel(),Quell2() 


Grundsätzlich sind die Matrizen-Additionen vergleichbar mit dem 
bekannten Additionsbefehl* ADD a,b’ oder der Zuweisung‘a=b+c’. 


Die erste Variante addiert alle Elemente der Matrix ‘Quell I ()‘ mit 
den entsprechenden Elementen der Matrix‘Quel/20’und legt das 
Ergebnis wiederum in den entsprechenden Elementen der‘Z/e/0’- 
Matrix ab.‘Quelll()’ und ‘QuelllQ’ bleiben dabei unverändert. 
Hierbei wird vorausgesetzt, daß alle drei Matrizen identische 
Dimensionierungen aufweisen. 


Bei der zweiten Variante (vgl. ‘ADD a.Wert’ oder ‘a=a+Wert’) 
wird der angegebene beliebige 'Wert' zu allen Elementen der 
Matrix ‘QuellzielO’ addiert und das Ergebnis in ‘QuellzlelQ’ 
wieder abgelegt. 

Ähnliches geschieht in der dritten Variante, wobei jedoch (identi¬ 
sche Dimensionierung in beiden Matrizen vorausgesetzt) jedem 
Element von ‘QuellzlelQ’ das entsprechende Element von 
'Queff2()’hinzuaddiertund das Ergebnis in‘Que/fz/ef()'abgelegt 
wird.‘Que/f20’bleibt bei dieser Aktion unverändert (vgl. ‘ADD 
a,b’ oder ‘a=a+b’). 


MATDET{ M DET } Matrizen-Determinante genau berechnen 

MAT DET Var=Feld() [,Anzahl] 

MAT DET Var=Feld(zx,sx)(Anzahl 



Die Erklärung darüber, was eine Determinante ist und worin ihr 
Sinn und Wert liegt, wäre hier wohl fehl am Platz,da man mit dieser 
Thematik mehrere Kapitel füllen könnte. Nur soviel: sie ermög¬ 
lichteine exakte Identifikation der bezogenen Matrix und ist für die 
Auflösung von linearen Gleichungssystemen von großer Bedeu¬ 
tung. Ihre einfachste Form ist die zweireihige (2‘'2) Determinante: 


I a b I 

I I 

I c d I 
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Matrizen-Mathematik 


Die bezogene Matrix muß generell in einem quadratischen Format 
vorliegen, damit eine Reduktion auf dieses Grundmaß möglich ist. 

Bei der Determinanten-Berechnung wird jede Möglichkeit einer 
Multiplikation von Elementen verschiedener Zeilen und Spalten 
genutzt, wobei aber gewährleistet sein muß, daß aus jeder Zeile 
und Spalte immer nur ein Elementzur Multiplikation herangezogen 
wird. Aus der Addition und Subtraktion dieser Produläe nach 
einem bestimmten Verfahren ergibt sich die Determinante der 
Matrix. 

Z.B. 3*3-Matrix: 


|Prod.4|-*|Prod.5MProdj6| =|Summe 2| 






a(1.2) 

1 

T 


M 

■ 

g 

m 

Determinante = 
Summe 1-Summe2 

m 



Sll 

a(3;j) 

A 

1 


lProd.1l ~» lFrod.2HProd3l = lSümmeTI 


In der ersten Syntax-Variante wird dieses Verfahren auf die gesam¬ 
te Matrix ’Feld(y angewandt Wird der optionale Parameter 
'Anzahl’ verwendet so kann damit die Determinante einer 
Teilmatrix mit 'Anzahl’ Zeilen und Spalten bestimmt werden. 


Die zweite Variante ermöglicht die Determinanten-Berechnung 
für eine Teilmatrix von 'Feld()’, die mit dem Zeilenindex 'zx’ und 
dem Spaltenindex 'sx’ beginnt und die quadratische Ausdehnung 
von 'Anzahl’ Elementen besitzt. 


' MAT INV Matrizen-Inverse berechnen 

MAT INV ZielO ,Quell{) 



Wie mit der Determinante einer Matrix ist auch mit deren 
Inversion: eine ausführliche Erörterung des Themas sprengt den 
Rahmen dieses Buches. Wieder nur soviel: multipliziert man die 
Inverse einer Matrix mit der Matrix selbst, so ergibt sich die 
Einheitsmatrix (s. MAT ONE / MAT MUL). 
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Matrizen-Mathematik 


'Ziel(y und 'QuellQ' sind zwei quadratische Matrizen mit glei¬ 
chem Format. Es wird die Inverse der Ursprungsmatrix ‘QuellQ’ 
berechnet und das Ergebnis dann in ‘ZielQ’ abgelegt. ‘QuellQ’ 
bleibt unverändert 


MAT MUL { M M } Matrizen und Vektoren multiplizieren 

MAT MUL Feld0,Wert 

MAT MUL Zielmatrix()=Matrixl()*Matrix2() 

MAT MUL Zielmatrix()=S_vektor()*Z_vektor() 

MAT MUL Scal=Z_vektor()*S_vektor() 

MAT MUL Scal=Z_vektor()‘Matrix()*S_vektor() 


I MAT MUL ist ein sehr vielseitiger Befehl, der mehrere 
^ Multiplikationsverfahren für Matrizen und Vektoren in sich verei¬ 
nigt, 

MAT MUL FeldO ,Wert 


Die erste und einfachste Syntax-Variante multipliziert den Inhalt 
der angegebenen Matrix ‘FeldQ’ elementeweise mit dem angege¬ 
benen 'Wert'und legt das Ergebnis wiederum in den entsprechen¬ 
den Elementen von ‘FeldQ’ ab. 

MAT MUL Zielmatrix 0=Matrixl0*Matrix2() 


Die zweite Variante führt eine Multiplikation der Matrizen 
‘/Motr/x/()'und‘MotrixZO’durch und legt die Ergebnisse in den 
entsprechenden Elementen der ‘ZielmatrixQ’ ab. Dabei ist es 
erforderlich, daß die Zeilenanzahl von ‘MatrIxlQ’ mit der 
Spaltenanzahl von ‘MatrixlQ’ und umgekehrt die Spaltenanzahl 
von ‘AAatrixlQ’ mit der Zeilenanzahl von ‘Matrix2Q’ identisch 
ist. Die ‘ZielmatrixQ’ muß so dimensioniert sein, daß ihre 
Zeilenanzahl mit der von ‘AAatrixlQ’ und ihre Zeilenanzahl mit 
der von ‘AAatrixlQ’ identisch ist 
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^ Matrizen-Mathematik 


Die Multiplikation erfolgt nach folgendem Schema: 


c (i.j) = 
a (m) * b (i.j) 


'MotrlxJf)' 


a(1,1) 


a(1m) 




a(m.1) 


a(ntn) 


;A1atrtx2f)' 


b(1,1) 


b(1,n) 




b(m,1) 


b(nr\n) 


"ZidmatrixO' 


c(1J) 


c(1.n) 




c(ni,l) 


c(rr\n) 


Das Ergebnis-Element cf.f ergibt sich also aus: 
al,l*bl,l +al,2*b2,l +al.n*bm,l 

MAT MUL Zielmatrix 0=S_vektor0*Z_vektor{) 


Bei dieser Multiplikation wird die ‘Zlelmatrix(y aus den sog. 
'äußeren’ Produkten der Multiplikation des Spaltenvektors 
'SjfektorQ’ mit dem Zeilenvelior 'Z_vel(tor(y gebildet. Ein 
Spaltenvektor ist eine eindimensionale Matrix mit 'n' Zeilen, aber 
nur einer Spalte.Wogegen ein Zeilenvektor eine eindimensionale 
Matrix mit ‘n’ Spalten, aber nur einer Zeile ist 
Die Multiplikation erfolgt nach folgendem Schema: 


Z_Yehior(y 


c (i.j) = 
a (1.j) 

b(1.1) 


b(1,n) 


'S_vefitorf)' 

1 1 1 

T T T 

ZietmatrixO’ 

a(1.1) 

-► 

c(1-1) 


c(1.n) 





a(m,1) 

c(m,l) 


c(ran) 
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Z.B. das Ergebnis-Element c I, I ergibt sich also aus; 

al. l*bl,l 

Z.B. das Ergebnis-Element cm,2 ergibt sich aus: 

am, l*bl,2 

MAT MUL Scal=Z_vektor()*S_vektor() 

Hier handelt es sich um die Berechnung des sog.'/nneren’ Produkts 
(Scalarprodukt) ‘Scal‘ aus der Multiplikation des Zeilenvektors 
'Z_yekxor(y und des Spaltenvektors ‘S_vektorO' (s.o.). 

Die Multiplikation erfolgt nach folgendem Schema: 


'S_vektor(y 



QB&iSHS 



m 




■ 

MMISHE 




a(1.n)=4)(iTv1) 


SSj 





Z_vekior(y 


1 

a(l.l) 


a(1.n) 


Seal' 


MAT MUL Scal=Z_vektor()*Matrix()*S_vektor() 


Diese Variante vereinigt zwei verschiedene Multiplikationen in 
einem Befehl. Zuerst wird die angegebene 'Matrix(y mit dem 
Zeilenvektor ‘Z_vekXor(y nach folgendem Schema multipliziert: 


c(1.j)=a(1.1)*b(1.j)* 

a(1.2rb(2.j)+ 

. + . + 

a(1.jfb(m,j) 


b(1J) 

g 


g 

g 


b(nfi,1) 

g 

b(nr\n) 




I 


I 

T 


a(1.1) 

g 

a(1,n) 

la 


g 

c(1,n) 
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z.B. das Ergebnis-Element c 1,1 ergibt sich aus: 

al,l*bl,l + al,2*b2,l + +al,n*bm,l 

z.B. das Ergebnis-Element c I ,n ergibt sich aus: 

al,l*bl,n + al,2*b2,n + ...*... +al,n*bm,n 

Der sich hieraus ergebende neue Zeilenvektor wird dann mit dem 
Spaltenvektor‘S_vektor()’ nach dem in der vorherigen Variante 
beschriebenen Verfahren multipliziert und ergibt als Endresultat 
das Scalarprodukt ‘Seal’. 

Aus diesem Verfahren ergibt sich die Notwendigkeit, daß 
‘Z_vel<Xor()’ ebensoviele Zeilen aufzuweisen hat, wie Wotr/x()’ 
an Zeilen und ‘S_vektor()’ an Zeilenelementen besitzt. 


MAT NORM {M NORM > 

zeilen-Zspaltenweise normieren 

MAT NORM Feld0,0 

-> Zeilennormierung 

MAT NORM FeldO,l 

-> Spaltennormierung 


P Auch für MAT NORM gilt: Sinn und Zweck der Matrizen- 
Normierung ist zu kompliziert,um sie in diesem Rahmen beschrei¬ 
ben zu können. In Stichworten: in der Matrizenrechnung werden 
normierte Matrizen häufig für die Auflösung komplexer 
Gleichungssysteme benötigt. 

Bei der Normierung wird zuerst die Summe der Quadrate aller 
Elemente eines Vektors (Zeilen- oder Spaltenvektor) gebildet und 
dann jedes Element des Vektors mit der Wurzel dieser Summe 
(dem ‘Betrag’ des Vektors) dividiert. Werden die sich daraus 
ergebenden neuen Werte quadriert, so ergibt die Summe dieser 
Quadrate des Vektors den Norm-Wert I. 

Die erste Syntax-Variante (MAT NORM 0) gliedert dabei die 
angegebene Matrix‘Fe/d()’in einzelne Zeilenvektoren und behan¬ 
delt diese dann nach dem eben beschriebenenVerfahren. Dagegen 
wird bei der zweiten Variante (MAT NORM 1) die Matrix in 
Spaltenvektoren aufgeteilt und dann die Normierung durchführt. 
In beiden Fällen wird die Ursprungsmatrix ‘FeldQ’ durch die 
normierten Werte überschrieben. 
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MATQDET{ M QDET } Determinante schnell berechnen 

MAT QDET Var=Feld() [,Anzahl] 

MAT QDET Var=Feld(zx,sx),Anzahl 

Für diesen Befehl gelten die Erläuterungen zu MAT DET analog. 
Es handelt sich prinzipiell um denselben Befehl. MAT QDET ist 
allerdings geschwindigkeitsoptimiert und somit um ca. 20 Prozent 
schneller als MAT DET. Dagegen hat MAT QDET jedoch den 
Nachteil der Ungenauigkeit. In den meisten Fällen wird sich dies 
nicht auswirken, da sich dieses Ungenauigkeiten erst effektiv 
bemerkbar machen, wenn die Determinante in der Nähe von Null 
liegt. In diesen Fällen sollte MAT DET eingesetzt werden. 


MAT RANG { M RANG } Rang einer Matrix ermitteln 

MAT RANG Var=Feld() [.Anzahl] 

MAT RANG Var=Feld(zx,sx).Anzahl 


Und wieder stehen wir vor dem Dilemma: die Erläuterungen zur 
Funktion dieses Befehls wären zu umfangreich, um im engen 
Rahmen dieses Buches abgehandelt zu werden.Wieder in Stich¬ 
worten: der Rang einer quadratischen Matrix ergibt sich aus der 
Anzahl der von einander ‘unabhängigen’ Zeilen. Eine unabhängige 
Zeile ist gegeben, wenn sie sich nicht aus der Summe 
höherstehender Zeilen oder einer Summe von verschiedenen 
Vielfachen der höherstehenden Zeilen bilden lassen. 


Z.B.: 


4 

6 

3 

8 


8 

12 

6 

16 

Zeilel*2 ergibt Zeile2 

15 

2 

5 

10 

Zeilel+Zeile2 ergibt nicht Zeile3 

27 

20 

14 

34 

Zeile2’1.5 + Zeile3 ergibt Zeile4 

9 

11 

6 

13 

ZeileS kann nicht durch Summierung 
höherer Zeilen gebildet werden 


Zeile3 und ZeileS sind also ‘unabhängig’ und der Rang 
dieser Matrix ist somit 2. 


In der ersten Syntax-Variante wird die Rang-Bestimmung für die 
gesamte Matrix'Fe/t/O’durchgeführtWird der optionale Parameter 
‘Anzahl’ verwendet, kann damit der Rang einer Teilmatrix mit 
‘Anzahl’ Zeilen und Spalten bestimmt werden. 


(gPgg) HotSpot 











Mcjtrizen-Mathematik 



Die zweite Variante ermöglicht die Rang-Bestimmung für eine 
Teilmatrix von ‘FeldQ’, die mit dem Zeilenindex ‘zx’ und dem 
Spaltenindex ‘sx’ beginnt und die quadratische Ausdehnung von 
‘Anzahl’ Elementen besitzt. 


MAT RANK { M RANK } Rang einer Matrix ermitteln 

; MAT RANK Var=Feld{) [.Anzahl] 

. MAT RANK Var=Feld(zx,sx).Anzahl 

MAT RANK ist mit MAT RANG identisch. Erläuterungen finden 
^ Sie dort. 


MAT SUB Matrizen-Inhalte subtrahieren 

MAT SUB Ziel().Quelll()-Quell2() 

MAT SUB Quellziel().Wert 
I MAT SUB Quellziel0.Quell2() 


Grundsätzlich sind die Matrizen-Subtraktionen vergleichbar mit 
dem bekannten Subtraktionsbefehl ‘SUB a,b’ oder der Zu¬ 
weisung ‘a=b-c’. 


Die erste Variante zieht alle Elemente der Matrix ‘Quell2()’von 
den entsprechenden Elementen der Matrix ‘Que///f)' ab und legt 
das Ergebnis wiederum in den entsprechenden Elementen der 
'Z/e/Q'- Matrix ab. 'Quelll()’ und ‘Quell2()’ bleiben dabei 
unverändert. Hierbei wird vorausgesetzt daß alle drei Matrizen 
identische Dimensionierungen au^eisen. 

Bei der zweiten Variante (vgl. ‘SUB a.Wert’ oder ‘a=a-Wert’) 
wird der angegebene beliebige 'Wert' von allen Elementen der 
Matrix ‘Quellziel()’ subtrahiert und das Ergebnis in ‘Quellziel()‘ 
wieder abgelegt. 

Ähnliches geschieht in der dritten Variante, wobei jedoch (identi¬ 
sche Dimensionierung in beiden Matrizen vorausgesetzt) von 
jedem Element von ‘QuellzielQ’ das entsprechende Element von 
’Quell2(y abgezogen und das Ergebnis in ‘QueUziel()’ abgelegt 
wird.‘Quell2Q’ bleibt bei dieser Aktion unverändert (vgl. ‘SUB 
a,b’ oder ‘a=a-b’). 
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Speicherverwaltung und -Zugriffe 


14. SPEICHERVERWALTUNG 
UND -ZUGRIFFE 

14.1. BIT-ARrnHMETX 


BCHGQ 

Einzelbit umkehren (an/aus) 

1 

Var=BCHG(Wert,Bit) 

1 



Wechselt das angegebene‘Bit’von‘Wert’ ('Wert' XOR (2 ' 
' Bit ') ).War das Bit vorher gesetzt ist es anschließend Null und 
umgekehrt 


BCLRQ Einzelbit löschen 


Var=BCIJt (Wert, Bit) 


p Löscht das angegebene‘Bit’von‘Wert’ ('Wert' AND (NOT 2 
^ '' 'Bit' )).War das Bit vorher gesetzt ist es anschließend Null. 
Null bleibt Null. 


BSETO 

Einzelbit setzen 

Var =BSEr ( Wert , Bit) 

..j 


Setzt das angegebene‘Bit’von‘Wert’ ('Wert' OR (2 
' Bit ') ).War das Bit vorher Null, ist es anschließend Eins. Eins 
bleibt Eins. 



BTSTQ 

Einzelbit auf an/aus testen 

Var=BTST(Wert,Bit) 

1 


Testetdasangegebene‘B/t'von'Wert’( -SGN('Wert' AND (2 
^ 'Bit')) ).lstdasBitgesetztwirdTRUE(-l)geliefertsonst 
FALSE (0). 
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AND() / AND Konjunktion zweier Integerwerte 

Var=AND(Wert1,Wert2) 

Var=Wertl AND Wert2 


m 


Verknüpft (‘undiert’) die beiden angegebenen Werte im AND- 
Modus und liefert das Integer-Ergebnis. Das Ergebnisbit wird nur 
dann gesetzt, wenn in ‘Wert 1’ UND in ‘WertZ’ das entsprechen¬ 
de Bit gesetzt ist. 


Statt 'Wertl AND Wert2' kann auch 'Wertl & Wert2' 
eingesetzt werden. 


Z.B.: 


AND(167,236) 


32Bit binär 


<-l 


00000000000000000000000010100111 
AND 00000000000000000000000011101100 

= 00000000000000000000000010100100 


dezimal 


167 
AND 236 


= 164 


EQV() / EQV Äquivalenz zweier Integerwerte 

Var=BQV(Wertl,Wert2) 

Var=Wertl EQV Wert2 


E Umkehrung zu XORQ. Das Ergebnisbit wird nur dann gesetzt, 
wenn die entsprechenden Bits in ‘Wert/* und 'WertZ' entweder 
beide gesetzt oder beide nicht gesetzt sind. 

Z.B.: 


EQV(167,236) 


l-> 32Bit binar <-l 

1 dezimal 

00000000000000000000000010100111 
EQV 00000000000000000000000011101100 

1 167 

1 EQV 236 

= 11111111111111111111111110110100 

1 = -76 

1-= = - 
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IMP()/IMP 

Implikation zweier Integerwerte 

Var=IMP(Wertl,Wert2) 
Var=Wertl IMP Wert2 



p Bei einer Implikation ist das Ergebnisbit immer dann Null, wenn das 
entsprechende Bit in ‘Wert I 'gesetzt aber in ‘Wert2’ nicht gesetzt 
ist. In den anderen drei möglichen Fällen wird das Bit gesetzt. 


Z.B.: 


IMP(167,236) 


l-> 32Bit binär <- 

1 dezimal 

00000000000000000000000010100111 
IMP 00000000000000000000000011101100 

167 

1 IMP 236 

= 11111111111111111111111111111100 

1 = -4 

1- 


NOT 


Negation eines Integerwertes 


NOT Wert 


Invertiert den angegeben ‘Wert’ in 32Bit-Breite. 

Statt 'NOT Wert' kann auch '- Wert' eingesetzt werden. 


Z.B.: 


NOT 

167 




-> 

32Bit binär <-1 

1 dezimal 

NOT 

00000000000000000000000010100111 

1 NOT 167 

= 

11111111111111111111111101011000 

1 = -168 

1- 


OR() / OR incl. Disjunktion zweier Integerwerte 

Var=OR(Wert1,Wert2) 

Var=Wertl OR Wert2 

Verknüpft {'oderiert') die beiden angegebenen Werte im OR- 
Modus und liefert das Ergebnis. Das Ergebnisbit wird schon dann 
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gesetzt, wenn entweder das entsprechende Bit von ‘Wert/’ 
ODER von ‘Wert!’ gesetzt ist. 


Statt 'Wertl OR Wert2' kann auch 'Wertl I Wert2' 
eingesetzt werden. 


Z.B.: 


OR(167,236) 


l-> 32Bit binär 


<-I I dezimal 


00000000000000000000000010100111 
OR 00000000000000000000000011101100 


167 
OR 236 


= 00000000000000000000000011101111 


= 239 


XOR() / XOR excl. Disjunktion zweier Integerwerte 

Var=XOR(Wert1,Wert2) 

Var=Wertl XOR Wert2 


y. Exclusives Oder. Das Ergebnisbit wird bei XOR nur dann gesetzt, 
wenn die beiden entsprechenden Bits der angegebenen Werte 
ungleich, also weder beide gesetzt noch beide nicht gesetzt sind. 

Z.B.; 


XOR(167,236) 


1-> 32Bit binär <-1 

1 dezimal 

00000000000000000000000010100111 
XOR 00000000000000000000000011101100 

1 167 

1 XOR 236 

= 00000000000000000000000001001011 

i = 75 


SHL() oder « 

Bits links verschieben 

Vax=SHL(Wert,Bits) 

-> Long-Shift-Left 

Var=Wert «Bits 

-> Long-Sliift-Left 

Var=SHL&(Wert,Bits) 

-> Word-Shift-Left 

Var=SHLI(Wert,Bits) 

-> Byte-Shift-Left 


j Verschiebt den Inhalt von ‘Wert’ um die Anzahl "Bits’ nach links. 
‘' Je verschobenem Bit wird ‘Wert’dabei mit 2 multipliziert (Integer- 
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Multiplikation: Var = Wert * 2 '' 'Bits'). Das rechts 
freiwerdende Bit wird mit 0 gefüllt. 


''Äf' rfrrriFfrtöTöi 

^nachgeschoben 

IÖ1 


.ir^///////' 


Bei Angabe von hinter SH L werden nur die ersten 16 Bit (LO- 
Word) von ‘Wert’geshiftet und bei ‘|’ nur die ersten 8 Bit (LO- 
Byte). Ist'Wert'bei SHL|() größer als 8 Bit,so werden als Ergebnis 
troudem nur die untersten 8 Bit der Operation geliefert. Dasselbe 
gilt für SHL&() (16 Bit), wobei dann jedoch das Bit 15 des 
Ergebnisses in die Bits 16-31 kopiert wird (signed). 


SHR() oder » 

Bits rechts verschieben 

Var=SHR(Wert,Bits) 

-> Long-Shift-Right 

Var=Wert»Bits 

-> Long-Shift-Right 

Var=SHR&(Wert,Bits) 

-> Word-Shift-Right 

Var=SHR|(Wert,Bits) 

-> Byte-Shift-Right 


P Verschiebt den Inhalt von "Wert’ um die Anzahl ‘Bits’ nach rechts. 
Je verschobenem Bit wird “Wert’ dabei durch 2 dividiert (Integer- 
Division: Var = Wert DIV 2 '' 'Bits'). Das links 

freiwerdende Bit wird mit 0 aufgefüllt. Bei Komplementwerten 
bleibt also das Vorzeichen gfls. nicht erhalten. 


N„ii»„d FlirFFFFröTöl 

^ irriirirrrrrrifFlirirFi ct 


Bei Angabe von‘<fi*hinterSHR werden nur die ersten 16 Bit (LO- 
Word) von ‘Wert’geshiftet und bei ‘|’ nur die ersten 8 Bit (LO- 
Byte). Ist "Wert’ bei SHR|() größer als 8 Bit, so werden als Ergebnis 
trotzdem nur die untersten 8 Bit der Operation geliefert. Dasselbe 
gilt für SHR&() (16 Bit), wobei dann jedoch das Bit 15 des 
Ergebnisses in die Bits 16-31 kopiert wird (signed). 
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ROLO 

Bits links rotieren 

Var=ROL(Wert,Bits) 

-> Long-Rotate-Left 

Var=ROL&(Wert,Bits) 

-> Word-Rotate-Left 

Var=ROL|(Wert,Bits) 

-> Byte-Rotate-Left 


S. Rotiert den Inhalt von 'Wert’ um die Anzahl 'Bits’ nach links. Das 
jeweils rechts freiwerdende Bit wird dabei mit dem jeweils links 
herausgeschobenen Bit gefüllt. 



FFFIirifrFFFI <-l 


Das höchste 
Bit des Wertes 
wird als nied¬ 
rigstes Bit nach¬ 
geschoben 


Bei Angabe von '<£’ hinter ROL werden nur die ersten 16 Bit (LO- 
Word) von 'Wert’ rotiert und bei ‘j'nur die ersten 8 Bit (LO-Byte). 
Ist 'Wert’ bei ROL|() größer als 8 Bit, so werden als Ergebnis 
troudem nur die untersten 8 Bit der Operation geliefert. Dasselbe 
gilt für ROL&() (16 Bit), wobei dann jedoch das Bit 15 des 
Ergebnisses in die Bits 16-31 kopiert wird (signed). 


ROR() 

Bits rechts rotieren 

Var=ROR(Wert, Bits) 

-> Long-Rotate-Right 

Var=ROR&(Wert,Bits) 

-> Word-Rotate-Right 

Var=R0R|(Wert,Bits) 

-> Byte-Rotate-Right 


■ Rotiert den Inhalt von 'Wert’ um die Anzahl 'Bits’ nach rechts. Das 
jeweils links freiwerdende Bit wird dabei mit dem jeweils rechts 
herausgeschobenen Bit gefüllt. 


Das niedrigste 
Bit des Wertes 
wird als höchstes 
nachgeschoben 


M . . 
^=-1810 


UTimirirrirrrrirFffTi 

\\\\\\\^ 

■ irriiTTrrniTrrmrFi 


Bei Angabe von '<&’ hinter ROR werden nur die ersten 16 Bit (LO- 
Word) von ‘Wert’rotiert und bei T nur die ersten 8 Bit (LO-Byte). 
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Ist ‘Wert’ bei ROR|() größer als 8 Bit, so werden als Ergebnis 
troadem nur die untersten 8 Bit der Operation geliefert. Dasselbe 
gilt für ROR&() (16 Bit), wobei dann jedoch das Bit 15 des 
Ergebnisses in die Bits 16-31 kopiert wird (signed). 


14.2. BYTE WORD - UND 
LONG - OPERATIONEN 


BYTEQ 

LOW-Byte eines Wertes absolut liefern 

Var=BYTE(Wert) 




Liefert absolut die untersten 8 Bit von ‘Wert’. 


CARDQ LOW-Word eines Wertes absolut liefern 

Var=CARD(Wert) 

■ Liefert absolut (0 bis 65535) die untersten 16 Bit von ‘Wert’. 
CARD() ist identisch mit LOCARD(), USHORT() und 
UWORDO 


HICARDQ 

Var=HICARD(Wert) 

Hl-Word eines Wertes absolut liefern 

Liefert absolut (0 bis 65535) die obersten 16 Bit von ‘Wert’. 

HIWORDQ 

Hl-Word eines Wertes signed liefern 

Var=HIWORD{Wert) 



1 Liefert vorzeichenbehaftet (-32768 bis +32767) die obersten 16 
^ Bit von‘Wert*. 
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LOCARDQ LOW-Word eines Wertes absolut liefern 

Var=LOCARD(Wert) 


P Liefert absolut (0 bis 65535) die untersten 16 Bit von 'Wert'. 
* LOCARDO ist identisch mit CARDQ, USHORTQ und 
UWORDO 


LOWORDO LOW-Word eines Wertes signed liefern 

Var=IXM)RD(Wert) 


Liefert vorzeichenbehaftet (-32768 bis + 32767) die untersten 16 
Bit von ‘Wert’. 


USHORTO LOW-Word eines Wertes absolut liefern 

Var=USHORT (Wert) 


Liefert absolut (0 bis 65535) die untersten 16 Bit von 'Wert'. 
USHORTO ist identisch mit CARD(), LOCARD() und 
UWORDO 


UWORDQ LOW-Word eines Wertes absolut liefern 

Var=UWORD (Wert) 


Liefert absolut (0 bis 65535) die untersten 16 Bit von ‘Wert’. 
UWORDO ist identisch mit CARDQ, LOCARDQ und 
USHORTQ 


MAKELONGQ Umwandeln zweier Werte in ein Longword 

Var=MAKELONG(Hiword,Loword) 


Bildet aus den beiden angegebenen Werten ein Longword. Dazu 
werden die beiden Werte vorher mit AND 65535 auf 16 Bit 
formatiert und dann das angegebene 'Hiword' in die oberen 16 Bit 
und das 'Loword' in die unteren 16 Bit des Longwords geschrieben. 


ft 
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SHORTQ 

Wert auf 32Bit erweitern 

Var=SHORT(Wert) 



Erweitert "Wert" vorzeichenbehaftet auf 32 Bit. Das Bit 15 von 
* 'Wert' wird dabei in die obersten 16 Bits des Ergebnisses kopiert. 
Ist CARD(Wert) größer als +32767, ist das Ergebnis von 
SHORT(Wert) negativ. SHORTQ ist identisch nnitWORD(). 


SWAPQ Hl- und LOW-Word eines Longwords tauschen 

' Var=SWAP(Wert) 

■ Vertauscht das LOW-Word (Bits 0-15) von ‘Wert' mit dessen Hl- 
Word (Bits 16-31). ‘Wert’ wird dabei grundsätzlich als 32Bit- 
Integerwert interpretiert. Evtl. Nachkommastellen werden inte¬ 
griert (s. INT). Kleinere ‘Wert’-Formate als 32 Bit werden auf 
Long erweitert. Verwechseln Sie diese Funktion bitte nicht mit 
dem Befehl SWAP. 


WORDQ 

Wert auf 32Bit erweitern 

Var=W0RD(Wert) 




Erweitert ‘Wert’ vorzeichenbehaftet auf 32 Bit. Das Bit 15 von 
‘Wert’ wird dabei in die obersten 16 Bits des Ergebnisses kopiert. 
Ist CARD(Wert) größer als +32767, ist das Ergebnis von 
WORD(Wert) negativ. WORD() ist identisch mit SHORTQ. 


14.3. SPEICHER - OPERATIONEN 


BYTE{} / BYTE{}= I Byte absolut lesen / schreiben 

Var=BYTE{Adresse} 

BYTE{Adresse} =Wert 



Die erste Syntax-Variante liefert das Byte an der angegebenen 
‘Adresse’. Die zweite Variante schreibt den angegebenen Byte- 
’Wert’ an die angegebene ‘Adresse’ (SegmentiÖffset). 
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CARD{} / CARD{}= 2 Byte absolut lesen / schreiben 

Var=CARD{Adresse} 

CARD{Adresse}=Wert 


p Die erste Syntax-Variante liefert das Absolut-Word (2 Byte: 0 bis 
^ 65535), an der angegebenen 'Adresse’ (SegmentOffset). Die 
zweite Variante schreibt den angegebenen Word-'Wert' an die 
angegebene ‘Adresse’.Vorzeichen werden ignoriert.'Adresse' ist 
im Format ‘SegmentOffset’ anzugeben. CARD{} ist identisch mit 
USHORTQ und UWORDQ 


CHAR{}/CHAR{}= ‘C’-Text lesen / schreiben 

Var$=CHAR{Adresse} 

CHAR{Adresse}=''Text'' 



Die erste Syntax-Variante liest ab der angegebenen ‘Adresse’ den 
Speicher bis zum nächsten auftretenden Nullbyte aus und liefert 
den bis dahin gelesenen String zurück. 


Die zweite Variante schreibt den angegebenen ‘Text’ (String, 
Expr$ oder Variableninhalt) ab der angegebenen ‘Adresse’ in den 
Speicher und hängt als Abschluß ein Nullbyte an (‘C-Text / nu/F 
terminated').‘Adresse’ ist im Format‘SegmentO/^et’anzugeben. 


DOUBLE0/DOUBLE{}= lEEE-Double lesen / schreiben 

Realvar=DOüBLE{Adresse} 

DOUBljE{Adresse} =Realwert 

■ Die erste Syntax-Variante liest ab der angegebenen 'Adresse'acht 
Byte und liefert sie als lEEE-Fließkommazahl mit doppelter 
(16stelliger) Genauigkeit zurück. Die zweite Variante schreibt den 
angegebenen ‘Realwert’ im 8Byte-IEEE-Double-Format an die 
angegebene ‘Adresse’ (Segment:Offset). 


DPEEKQ 

2 Byte signed lesen 

Var=DPEEK(Adresse) 



Die Funktion DPEEK() liest das Integer-Word (2 Byte signed: - 
32768bis+32767) ander angegebenen ‘Adresse’ (SegmentOffset). 
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DPOKE {DP} 

2 Byte signed schreiben 

[ DPOKE Adresse,Wert 



Der Befehl DPOKE schreibt das angegebene Integer-Word 'Wert' 
vorzeichenbehaftet (-32768 bis +32768) an die angegebene'Adres¬ 
se' (SegmentiOffset). 



INT0/INT0= 

2 Byte signed lesen / schreiben 

Var=INT(Adresse) 

■ IMr{Adresse}=Wert 



Die erste Syntax-Variante liest das Integer-Word (2 Byte signed;- 
^ 32768 bis +32767) an der angegebenen ‘Adresse’. Die zweite 
Variante schreibt den angegebenenWord-'Wert’an die angegebe¬ 
ne ‘Adresse’.‘Adresse’ ist im Format‘SegmenfO^et’anzugeben. 
INT{} ist identisch mit SHORTQ und WORDQ. 


LONGO I LONG0= 4 Byte signed lesen / schreiben 

Var=LOJG {Adresse} 

LCWG{Adresse} =Wert 



Die erste Syntax-Variante liest das Integer-Longword (4 Byte 
signed: -2147483648 bis +2147483647) an der angegebenen 
‘Adresse’. Die zweite Variante schreibt den angegebenen Long- 
’Wert’ an die angegebene ‘Adresse’ (SegmentOffset). In beiden 
Fällen reicht auch nur die Angabe der geschweiften Klammer 
(Var={Adr} oder (Adr) =Wert). GFA-BASIC interpretiert 
diese Schreibweise automatisch als Long-Zugriff. 


LPEEKQ 4 Byte signed lesen 

Var=LPEEK(Adresse) 

B Die Funktion LPEEK() liest das Integer-Longword (4 Byte signed: 
-2147483648 bis +2147483647) an der angegebenen ‘Adresse’ 
(SegmentOffset). 
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LPOKE {LP} 

4 Byte signed schreiben 

LPOKE Adresse,Wert 



Der Befehl LPOKE schreibt den angegebenen Integer-Long- 'Wert' 
vorzeichenbehaftet (-2147483648 bis +2147483647) an die ange¬ 
gebene 'Adresse’ (Segment:Offset). 



PEEK() 

1 Byte absolut lesen 

Var=PEEK(Adresse) 



p Die Funktion PEEK() liest das Integer-Byte (absolut: 0 bis 255) an 
* der angegebenen ‘Adresse’ (SegmenrOffset). 


POKE {PO} 

1 Byte absolut schreiben 

POKE Adresse,Wert 



Ä Der Befehl POKE schreibt das angegebene Integer-Byte “Wert’ 
vorzeichenlos (absolut: 0 bis 255) an die angegebene ‘Adresse’ 
(Segment: Offset). 


SHORTO / SHORT{}= 2 Byte signed lesen / schreiben 

Var=SHORT{Adresse} 

SHORT{Adresse}=Wert 


I Die erste Syntax-Variante liest das Integer-Word (2 Byte signed: - 
32768 bis +32767) an der angegebenen ‘Adresse’. Die zweite 
Variante schreibt den angegebenen Word- 'Wert' an die angegebe¬ 
ne ‘Adresse’ (SegmenrOffset). SHORTß ist identisch mit INT{} 
und WORDQ. 


SINGLEO/SINGLE{}= lEEE-Single lesen / schreiben 

Realvar=SINGLiE{Adresse} 

SINGLE{Adresse}=Realwert 

■ Die erste Syntax-Variante liest ab der angegebenen ‘Adresse’vier 
^ Byte und liefertsie als lEEE-Fließkommazahl mit einfacher (8stelliger) 
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Genauigkeit zurück.DiezweiteVariante schreibt den angegebenen 
‘Reo/wert’im4Byte-IEEE-Single-Formatandieangegebene‘Adres- 
se’ (Segment:Offset). 


WORD{} / WORD{}= 2 Byte signed lesen / schreiben 

Var=WORD{ Adresse} 

WORD{Adresse) =Wert 



Die erste Syntax-Variante liest das Integer-Word (2 Byte signed:- 
32768 bis +32767) an der angegebenen 'Adresse' Die zweite 
Variante schreibt den angegebenen Word-’Wert’an die angegebe¬ 
ne 'Adresse' (Segment:C)ffset).WORD{} ist identisch mit INT{} 
und SHORTQ. 


USHORTÖ / USHORT{}= 2 Byte absolut lesen / schreiben 

Var=USHORT{Adresse} 

USHORT (Adresse)=Wert 


P Die erste Syntax-Variante liefert das Absolut-Word (2 Byte: 0 bis 
^ 65535),an der angegebenen'Adresse'. Die zweiteVariante schreibt 
den angegebenen Word-’VVert'absolut an die angegebene ‘Adres¬ 
se’ (Segment:Offset).Vorzeichen werden ignoriert. USHORTO ist 
identisch mit CARD{} und UWORDQ. 


UWORDO / UWORD{}= 2 Byte absolut lesen / schreiben 

Var=UWORD(Adresse) 

DWORD{Adresse}=Wert 

H Die erste Syntax-Variante liefert das Absolut-Word (2 Byte: 0 bis 
65535),an der angegebenen'Adresse'.Die zweiteVariante schreibt 
den angegebenenWord-'Wert'absolut an die angegebene'Adres¬ 
se' (Segment:Offset).Vorzeichen werden ignoriert.UWORD{} ist 
identisch mit CARD{} und USHORTQ. 


HotSpot 



Speicherverwaltung und -Zugriffe 


211 


14.4. BLOCKBEZOGENE OPERATIONEN 


BMOVE {BM} 

Speicherblock kopieren 

BMOVE Quell,Ziel,Bytes 



i Ab der angegebenen ‘Que//’-Adresse (SegmentOffset) wird die 
^ angegebene Anzahl an ‘Bytes’ gelesen und an den mit der ‘Z/e/’- 
Adresse beginnenden Bereich kopiert. Quell- und Zielbereich 
können sich dabei auch überschneiden. 

Hinweis: 

Aufgrund der Segment-Aufteilung eines PC-Speichers ist die¬ 
ser Befehl auch segmentorientiert D.h., daß die maximal mit 
einem Vorgang zu kopierende Blockgröße bei 64 KByte liegt 
Dies jedoch auch nur, wenn der Offset zum Segmentstart bei 
‘Ziel’und bei ‘Quelle’Null ist Sonst ist bei ‘Bytes’von den 
64 KByte der größere der beiden Offset-Werte abzuziehen. 

Der Befehl arbeitet bei geraden Adressen schneller als bei 
ungeraden. 


PEEK$() Speicherblock in Stringvariable kopieren 

Zielvar$=PEEK$(Quell,Anzahl) 


[Ä Ab der angegebenen ‘Quell’-Adresse (Segment:Offset) werden 
‘Anzahl’ Bytes gelesen und in die als Empfänger angegebene 
‘ZielvarS’ kopiert.'Anzoh/’ ist durch die maximale GFA-Stringlänge 
von 32767 Zeichen beschränkt. ‘Var$’ muß nicht vorbereitet 
werden, da dies von GFA-BASIC in der notwendigen Länge 
automatisch vorgenommen wird. Beachten Sie bitte auch den 
Hinweis unter BMOVE. 


POKE$ Stringvariablen-Inhalt in Speicher kopieren 

POKE$ Ziel,Quellvar$ 



Der Inhalt der angegebenen ‘QuellvarS’ wird an die angegebene 
‘Zie/’-Adresse (Segment;Offset) in den Speicher kopiert. Die 
Länge von ‘QuellvarS’ sollte nicht größer sein, als die Differenz 
zwischen Segmentlänge (64 KByte) und Offset. POKE$ überträgt 
ab ‘Ziel’ nur soviel Zeichen, wie in das angegebene Segment ab 
dem Offset noch hineinpassen. Beachten Sie hierzu bitte den 
Hinweis unter BMOVE. 
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MEMAND { MEMA } Konjunktion zweier Speicherblöcke 

I MEMAND Quell,Ziel,Anzahl 

Liest ‘Anzahl’ Bytes ab der angegebenen ‘Que//’-Adresse 
(SegmentOffset) und kopiert diese an die ‘Z/e/’-Adresse. Dabei 
werden die beiden Speicherbereiche im AND-Modus miteinan¬ 
der verknüpft. Im Zielbereich sind hinterher nur diejenigen Bits 
gesetzt, die vorher in beiden Ursprungsbereichen gesetzt waren. 
Beachten Sie bitte auch den Hinweis unter BMOVE. 


MEMOR { MEMO } incl. Disjunktion zweier Speicherblöcke 

MEMOR Quell,Ziel,Anzahl 



Liest ‘Anzahl’ Bytes ab der angegebenen ‘Quell’-Adresse 
(SegmentiOffset) und kopiert diese an die 'Z;e/'-Adresse. Dabei 
werden die beiden Speicherbereiche im OR-Modus miteinander 
verknüpft. Im Zielbereich sind hinterher diejenigen Bits gesetzt, 
die vorher entweder im Quellbereich oder im Zielbereich gesetzt 
waren. Beachten Sie bitte auch den Hinweis unter BMOVE. 


MEMXOR { MEMx } excl. Disjunktion zweier Speicherblöcke 

MEMXOR Quell,Ziel,Anzahl 


■ Liest ‘Anzahl’ Bytes ab der angegebenen ‘Quell’-Adresse 
(Segment:Offset) und kopiert diese an die ‘Zie/'-Adresse. Dabei 
werden die beiden Speicherbereiche im XOR-Modus miteinan¬ 
der verknüpft. Im Zielbereich sind hinterher nur diejenigen Bits 
gesetzt, die vorher entweder im Quell- aber nicht im Zielbereich 
oder im Ziel- aber nicht im Quellbereich gesetzt waren (‘oder...aber 
nicht’ = ausschließendes Oder). Beachten Sie zur Adressangabe 
bitte auch den Hinweis unter BMOVE. 


MEMBFILL { MEM } Speicherbereich mit Bytewert füllen 

MEMBFILL Ziel,Anzahl,Wert 


■ P Füllt ab der angegebenen ‘Zie/'-Adresse (Segment:Offset) ‘An- 
^ zahl’ Bytes mit dem angegebenen Byte-’Wert’ (absolut; 0 bis 
255). 
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MEMLFILL { MEML } Speicherbereich mit Longwert füllen 

MEMLFILL Ziel,Anzahl,Wert 



Füllt ab der angegebenen ‘Zie/’-Adresse (SegmentiOffset) ‘An- 
zahr Bytes mit dem angegebenen Long-’Wert’ (signed: - 
2147483648 bis +2147483M7). Ist ‘Anzahr nicht durch 4 teilbar 
(I Longword = 4 Bytes), bleibt das letzte,angeschnittene Longword 
unberührt. Damit ist gewährleistet, daß der Füllvorgang nicht über 
die gewünschte Lange hinausgeht. 


MEMWFILL { MEMw } Speicherbereich mitWordwert füllen 

MEMWFILL Ziel,Anzahl,Wert 


■ Füllt ab der angegebenen ‘Zie/'-Adresse (SegmentOffset) 'An- 
* zahl’ Bytes mit dem angegebenen Word-’Wert’ (signed: -32768 
bis 32767). Ist ‘Anzahl’ nicht durch 2 teilbar (I Word = 2 B)rtes), 
bleibt das letzte, angeschnittene Word unberührt. Damit ist 
gewährleistet, daß der Füllvorgang nicht über die gewünschte 
Länge hinausgeht. 


14.5. SPEICHER-ORGANISATION 


MALLOCO System-Speicher-Reservierung 

Adressvar=MALLOC(Anzahl) 



Reserviert einen Speicherbereich in der Größe von ‘Anzahl’ 
Bytes für den eigenen Bedarf. Im Falle schon vergebener Blöcke 
liegt dieser Block dann oberhalb des zuletzt mit MALLOC() 
reservierten oder mit MSHRINKQ reduzierten Speicherbereichs. 
Der Bereich ist anschließend gegen System- und GFA-BASIC- 
Zugriffe geschützt (alloziert). Es können hier auch größere Blöcke 
als 64 KByte für die eigene Speicherverwaltung eingerichtet 
werden. Es ist allerdings darauf zu achten, daß ein Speicherzugriff 
nicht über die Segmentgrenzen hinaus liest oder schreibt. 


Als Rückgabewert erhält man in der angegebenen ‘Adressvar’ bei 
durchgeführter Reservierung die Startadresse (SegmentiOffset) 
des reservierten Bereichs (bei Fehler 0).Wird in ‘Anzahl’ eine - 
I (TRUE) übergeben, erhält man in der Rückgabe-Variablen 
‘Adressvar* die Größe des momentan für weitere Allozierungen 
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noch verfügbaren Speichers.Vor Programmende sollte gfls. grund¬ 
sätzlich MFREEO ausgeführt werden, da nach Programmende die 
MALLOC-Adresse nicht mehr zur Freigabe verfügbar ist und der 
Speicher dann reserviert bleibt. 


MFREEO MALLOC-Speicher wieder freigeben 

Var=MFREE(Adresse) 



Gibt einen durch M ALLOCQ reservierten Speicherblock wieder 
frei. In ‘Adresse’ (SegmentiOffset) wird die Startadresse des 
freizugebenden Bereichs angegeben (bei MALLOCO-Aufruf mer¬ 
ken). Wurde die Funktion ohne Fehler ausgeführt, erhält man in 
der Rückgabe-’Vdr' eine Null, sonst einen negativen Wert. 


MSHRINKQ MALLOC-Speicher einschränken 

Var=MSHRINK (Adresse,Anzahl) 



Schränkt einen durch MALLOCQ reservierten Speicherblock 
ein. In ‘Adresse’ (SegmentCDffset) wird die Startadresse des zu 
vermindernden Speicherblocks angegeben (bei MALLOCQ-Auf- 
ruf merken). 


‘Anz’ enthält die gewünschte neue Größe des Blocks. Der 
freiwerdenden Bereich wird an das System zurückgegeben und 
kann gfls. durch erneutes MALLOCQ wieder zugeteilt werden. 
Wurde die Funktion ohne Fehler ausgeführt erhält man in der 
Rückgabe-'Vor' eine Null, sonst einen negativen Wert. 


_PSP Programmsegment-Präfix-Adresse liefern 

Adressvar=_PSP 

C _PSP ist eine reservierte Variable und liefert die Startadresse 
(Segment:Offset) des System-Verwaltungsbereichs für das aktuel¬ 
le Programm (ProgrammSegmentPräfix = 256 Bytes). Im 
Interpreterbetrieb ist dies das ’PSP’ des GFA-Interpreters. Das 
’PSP’ liegt direkt am Anfang des ersten Segments, das für den 
betreffenden Prozess zugewiesen wurde, also direkt vor dem 
Programm selbst (Prograininstart = _PSP+256)._PSPistmit 
BASEPAGE identisch. 
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Offsets: 

+ 0 = I Word = Interrupt $21-Aufruf 

+ 2 = I Word = Segment-Adresse des 

letzten, für diesen Prozess zuge¬ 
wiesenen Segments 

+ 4 = I Byte = reserviert 

+ 5 = 5 Bytes = FAR CALL zum Interrupt $21 

+ 10= I Long = Kopie des Interrupts $22 

+ 14 = I Long = Kopie des Interrupts $23 

+ 18 = I Long = Kopie des Interrupts $24 

+22 = I Word = Segment-Adresse des 

ProgrammSegmentPräfix des Aufrufers 
+24 

bis = 20 Bytes = reserviert 

+43 

+44 = I Word = Segment-Adresse des 
Env/ronment-Bereichs 
+46 

bis = 46 Bytes = reserviert 

+91 

+92 

bis = 16 Bytes = R/eContro/ß/ock (FCB) I 

+ 107 

+ 108 

bis = 16 Bytes = R7eContro/ß/ock (FCB) 2 

+ 123 

+ 124= I Long = reserviert 
+ 128 = I Byte = Länge der Kommondoze/Ve excl. 
des CR-Bytes am Ende der Komm. 

+ 129 

bis = 127 Byte = Puffer für Kommandozeile 

+ 128 

Die Kommandozeile ist für die Übergabe von Dateinamen an 
aufgerufene Programme interessant. Zu Beginn der Komandozeile 
abglegte Dateinamen (incl. Pfad) werden von vielen Programmen 
als Startdateien gewertet. 
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BASEPAGE Programmsegment-Präfix-Adresse liefern 

I Adressvar=BASEPAGE 


BASEPAGE ist mit 
rungen dort. 


PSP identisch. Beachten Sie bitte die Erläute- 


FREEFONT {FR} externen Font aus dem Speicher löschen 

FPEEFCOT' 


p Wurde mit LOADFONT ein externer Zeichensau im RAM 
^ installiert, so wird dieser durch den Befehl FREEFONT wieder aus 
dem Speicher gelöscht. Auch LOADFONT löst vor seiner Aus¬ 
führung automatisch ein FREEFONT aus. 


LOADFONT {LOADF} externen Font in den Speicher laden 

LOADFCWr ''Fontdatei'' 



Möchten Sie im Grafikmodus einen selbstdefinierten Zeichensau 
installieren, so kann dieses durch LOADFONT erreicht werden. 
Im Textmodus hat LOADFONT dagegen keine Wirkung. Dem 
Befehl wird der Name einer‘Fontdate/’als Parameter übergeben. 
Die Freigabe des belegten Speichers erfolgt durch FREEFONT 
(s. dort). 


Im CGA- und HGC-Modus finden Sie die erste Fonthälfte (ASCII 0 
- 127) ab $F000:$FA6E. Einen Zeiger auf die Startadresse der 
oberen Hälfte (ASCII 128 - 255) finden Sie - sofern mit dem DOS- 
Befehl GRAFTABL eine Zeichentabelle installiert wurde - in den 
Speicherstellen $7C bis $7F (Adresse=LONG{7C}). 

Ein EGA/\fGA-Standard-Zeichensatz ist folgender¬ 
maßen organisiert: 

Die Gesamtlänge beträgt 4096 Bytes (256 Zeichen * 16 
Scanline-Bytes). Ein Zeichen besteht aus 8 Punkten in der 
Breite und 16 Punkten in der Höhe. Die ersten 16 Bytes des 
Fonts entsprechen den 16 Scanline-Bytes für das ASCII- 
Zeichen 0 (Scanline = 8 Muster-Bits je Zeile). Danach 
schließen sich der Reihe nach weitere 255 ASCII-Zeichen mit 
wiederum Je 16 Bitmuster-Bytes an. 
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Den Zeiger auf die Startadresse des internen ROM-CGA/VGA- 
Fonts (4096 Bytes) finden Sie in der Speicherstelle $I0C 

(Font adresse=LONG {$ 1OC}). 

LOADFONT erlaubt es allerdings auch, die Fonthöhe (fast) belie¬ 
big zu variieren. Die Punkthöhe des zu ladenden Zeichensatzes 
wird ermittelt, indem GFA-BASIC die Länge der Fontdatei durch 
256 teilt. Enthält die Fontdatei also z.B. nur 3072 Bytes, so wird 
dieser Font mit einer Höhe von 12 Punkten (3072/256) installiert. 
Ein Font mit einer Länge von z.B. 6144 Bytes würde also demnach 
mit einer Zeichenhöhe von 24 Punkten installiert. 

Weitere Möglichkeiten zur Text-Modifikation finden Sie unter 

WINDSET 14 und unter DEFTEXT. 


FREO 

freien Segmentanteil ermitteln 

Var=FRE( [Dunrny]) 




Wird als Funktionsargument ein beliebiger ‘Du/nmy'- Wert einge¬ 
setzt, wird eine ‘Garbage Collection’ (Aufräumung des BASIC- 
Speichers) durchgeführt und anschließend die Größe des noch 
freien Speichers im aktuell letzten vom GFA-BASIC angeforderten 
Segment geliefert. D.h., der in der Rückgabe- 'Vor* gelieferte Wert 
kann max. 64000 sein. ‘Dummy’ ist eine Integerwert ohne 
Bedeutung,der auch weggelassen werden kann. In diesem Fall wird 
vor der Speicherplatz-Ermittlung keine ‘Garbage Collection’ durch¬ 
geführt. 


Die gesamte momentan verfügbare Speichergröße kann durch 
MALLOC(-1 ) ermittelt werden. 


STACKSIZE {STA} Größe des GFA-Stacks bestimmen 

STACKSIZE Bytes 


P Mit diesem Befehl kann durch den Parameter ‘Bytes’ die aktuelle 
Größe des GFA-internen Stapelspeichers (engl.: stock) im Bereich 
von 8000 bis zu 65535 Bytes frei bestimmt werden. Bei verschie¬ 
denen GFA-Befehlen ist es notwendig, Daten für den internen 
Bedarf zwischenzuspeichern oder Adressen und Parameter‘in die 
Ablage’zu legen. DieseAblage funktioniert im wesentlichen wie ein 
Stapel Papier, auf den ein Blatt obenaufgelegt und bei Bedarf auch 
wieder heruntergenommen wird. Der sog. ‘Stack’ ist ein 
Speicherbereich, der extra für diese Aufgabe eingerichtet wird. 
Dabei wird das sog.'L/FO’-Prinzip (LastlnFirstOut) verwendet, d.h.. 
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es wird bei einem Lesevorgang derjenige Eintrag als nächstes 
gelesen, der zuletzt gespeichert wurde. GFA-BASIC verwaltet 
dazu einen Stapel-’Ze/ger’ (engl.: stackpo/nter), der auf den jeweils 
letzten Eintrag im Stack 'zeigt'. 

Wird z.B. ein Unterprogramm (z.B. FUNCTION oder 
PROCEDURE) aufgerufen,so berechnet GFA-BASIC bei jedem 
Aufruf aus der Adresse des Aufrufes und der Befehlslänge die sog. 
Rücksprungadresse. Diese Adresse wird dann auf den Stack gelegt. 
Werden innerhalb der aufgerufenen Routine auch noch lokale 
Variablen verwendet, werden diese ebenfalls über den Stack 
verwaltet. Ist die Routine abgearbeitet, wird der Stack wieder 
geräumt. In der Reihenfolge der Einträge werden die Daten wieder 
gelesen, verarbeitet und vom Stack gelöscht bzw. der Stackpointer 
'heruntergefahren’. 

Der Stack für das GFA-BASIC ist standardgemäß mit einer Größe 
von 16384 Bytes eingerichtet. Im Normalfall ist diese Größe völlig 
ausreichend. In den sog. 'rekursiven' Aufrufen kann es jedoch bei 
großen Rekursionstiefen passieren, daß die aktuelle Stackgröße 
nicht ausreicht, um sämtliche Rücksprungadressen und die lokalen 
Variablen-Pointer zu speichern. Rekursionen sind Prozeduren,die 
sich aus sich selbst aufrufen, also eine 'Aufruf-Spirale' bilden. 

In diesen Fällen kann eine beliebige Stackgröße bis zu maximal 
65535 Bytes eingerichtet werden.Will man Speicher sparen, kann 
die Stacl^röße auch auf minimal 8000 Bytes vermindert werden. 
Wird die aktuelle Stackgröße durch den Speicherbedarf der 
Einträge überschritten, wird die Fehlermeldung "Stapelüberlauf’ 
ausgegeben. 

Zu beachten ist, daß STACKSIZE nicht innerhalb von 
PROCEDURE’s, oder FOR..NEXT-Schleifen verwendet wer¬ 
den darf, da sonst die Fehlermeldung 'Nicht in PROC/FOR’ er¬ 
scheint. Das bedeutet, daß bei streng prozedural strukturierten 
Programmen eine Stackänderung nur am Programmanfang vor 
dem 'main’-Aufruf möglich ist Die später maximal benötigte 
Stackgröße sollte dann also schon bei Programmstart bekannt 
sein. 
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14.6. ZEIGEROPERATIONEN 


ARRPTR(){m Variablen-ZDescriptor-Adresse liefern 

Var=ARRPTR(Var) oder Var=*Var 

Var=ARE?PrR(Feld{)) oder Var=*Feld() 


Bei einerString-'VorJ’odereinem beliebigen numerischen‘FeWO' 
wird durch ARRPTR() der dazugehörige Descriptor 
(ARRPTR(Feld{ )) oder ARRPTR (Var$)) geliefert. Bei 
numerischen Variablen die Adresse.an welcher derVariableninhalt 
zu finden ist. ARRPTR (Var) ist in diesem Fall identisch mit 
VARPTR(Var) (s. auch Erläuterungen unter VARIABLEN-TY- 
PEN’) 


SWAP {sw} Variablen/Felder/Pointer tauschen 

SäAP Varl,Var2 
SWAP Feldl(),Feld2() 

SWAP *Zeiger,Feld{) 

SWAP Element(x),Element(y) 


Tauscht die Inhalte zweier gleichartiger Variablen oder Felder 
(numerische oder alphanumerisch), bzw. einen Zeiger auf einen 
Feld-Descriptor (s.ARRPTRO) mit dem Descriptor des angegebe¬ 
nen Feldes (z.B. für Feldübergaben an Prozeduren). Bei Feldern 
wird auch die Dimensionierung vertauscht. Außerdem ist es 
möglich, einzelne Feldelemente gleichen Typs zu vertauschen (s. 
Syntax-Variante 4).Verwechseln Sie diesen Befehl bitte nicht mit 
der SWAPO-Funktion. 

Z.B.: 

DIM A*(10) 

SRoutine(*Ai()) 

PROCEDURE Rout ine(Zeiger%) 

SWAP *2eigert,Lokal%() 

... ab hier ist das globale Feld 'A%()' 

... innerhalb der Routine unter dem Namen 
... 'LokaltO' ansprechbar. Feld 'Al(!' 

... ist nun leer. 


... Programmtext des Unterprogramms 


SWAP ’Zeiger%,Lokal%() 

... ab hier ist Feld 'bokalKl' wieder 
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... Feld 'AM)'. Feld 'LokaUO' ist nun 
... wieder leer. 

RETORN 

Beachten Sie dazu auch das Beispiel zu XLATE$. 


VARPTRO {V:} 

Variablen-Adresse ermitteln ' 

Var=VARPTR(Var) 

Var=V:Var 



Liefert bei numerischen Variablen deren Adresse, bzw. bei 
Stringvariablen die Adresse des ersten Zeichens des betreffende 
Strings. ‘Var^ steht hier für jede beliebige Variable, sowie auch für 
einzelne Feldelemente. Als Abkürzung lann auch 'V.'VoH verwen¬ 
det werden (z.B. PRINT V:A$). 

14.7. EXmNDED MEMORY- 
OPERATIONEN (EMS) 



EAVAIL {EA} 

Anzahl freier EMS-Seiten ermitteln 

EAVAIL Var 




Die EMS-Befehle EPUSH, EMEMPUSH und EMSPUT lagern 
Speicherblöcke in das EMS aus. Um in diesen Fällen feststellen zu 
können, ob im EMS genügend Speicher für die betreffende Ope¬ 
ration vorhanden ist kann mit dem Befehl EAVAIL die momentan 
verfügbare EMS-Speichergröße ermittelt werden. 


Dazu liefert der Befehl in der Rückgabe-’Var* die Anzahl der noch 
freien EMS-Speicherseiten.Eine EMS-Speicherseite hat eine Grö¬ 
ße von 16384 Bytes (16 KByte). Die Größe des freien EMS- 
Speichers ergibt sich also aus Yor**’16384 und dem noch nicht 
verwendeten Rest der evtl.zuletzt belegten Seite. Diese Restgröße 
der letzten Seite läßt sich allerdings nur dann exakt feststellen, 
wenn man sich die Größe der schon ausgelagerten Speicherblöcke 
programmintern merkt. 
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EDIR Ersatz-EMS in einer Datei einrichten 

EDIR ''[Pfadname]'' 


Im Falle, daß kein EMS vorhanden oder kein weiterer EMS- 
Speicher verfügbar ist, kann durch EDIR ein simulierter EMS- 
Speicher innerhalb einer Festspeicher-Datei eingerichtet werden. 
Diese Datei wird dann vom GFA-BASIC behandeltals wenn es ein 
echter EMS-Speicher wäre (nur erheblich langsamer). Ist auf dem 
Festspeicher (Harddisk, Diskette etc.) genügend Platz vorhanden, 
ist es so möglich, beliebig große Speicherblöcke dorthin zu verle¬ 
gen. Dazu wird dem Befehl der gewünschte ‘Pfadnante’ überge¬ 
ben (z.B. ' C : \EMSDAT\ ').‘Pfadname’ kann allerdings auch als 
Textvariable angegeben werden (z.B. EDIR path$ ) .Ein Dateiname 
darf nicht angegeben werden, bzw. wird ignoriert, da GFA-BASIC 
im angegebenen Pfad selbstständig eine EMS-Datei anlegt, die vor 
Programmende auch wieder von GFA-BASIC gelöscht wird. 


Sollen die EMS-Befehle wieder auf den echten EMS-Speicher 
zugreifen, ist EDIR' ' ' ' ohne die Angabe eines Dateinamens zu 
verwenden. Die EMS-Datei wird dann geschlossen. Sie bleibt 
jedoch in diesem Fall erhalten und kann nötigenfalls mittels 
normaler Datei-Befehle (BLOAD, INPUT$0 etc.) ausgelesen 
werden. 


EGET { EG } freie EMS-Daten-Copy in das DOS-RAM 

EGET Var:Index],Feld0:Index,Var:''Name'',... 

...Feld]):''Name'',...] 



EGET ermöglicht es,auf den durch EPUSH,EMEMPUSH oder 
EMSGET eingerichteten EMS-Daten-Stack zuzugreifen. Die 
Variablen- und Feldinhalte können aus dem EMS ausgelesen wer¬ 
den, indem durch EGET entweder der Stack-’/ndex' oder der 
durch EPUSH,EMEMPUSH oder EMSGET vergebene 'Name' 
der betreffenden Daten angegeben wird. ‘Name’ kann hier auch 
als Textvariable angegeben werden. 


‘Index’ richtet sich dabei nach der Reihenfolge der Stack-Ablage. 
Wird als ‘Index’ eine Null angegeben, wird grundsätzlich der 
zuletzt auf dem Stack abgelegte Datenblock gelesen. Ein Negativ- 
’lndex’ bezieht sich auf das Stack-Ende, während sich ein positiver 
‘Index’ auf den Stack-Anfang bezieht; 
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Stack- 

Ende => Eintrag 5 <= 
Eintrag 4 <= 
Eintrag 3 <= 
Stack- Eintrag 2 <= 

Anfang => Eintrag I <= 


EGETVar:0 oder EGETVar;5 
EGETVar-l oder EGETVar:4 
EGETVar:-2 oder EGETVar:3 
EGETVar:-3 oder EGETVar:2 
EGETVar>4 oder EGETVar:! 


Die Variablen 'Vor' und Felder 'Feld()\ die mit den gelesenen 
Daten belegt werden sollen, müssen nicht gesondert vorbereitet 
werden, da GFA-BASIC zusätzlich zu den Daten auch die Angaben 
über Variablen- und Feidlängen im EMS abspeichert und die 
Größen bei der Übergabe entsprechend einrichtet. Es muß aller¬ 
dings darauf geachtet werden, daß die angegebenen Variablen und 
Felder demTyp der zu lesenden Daten entsprechen (Long-Integer 
zu Long-Integer, Real zu Real etc.) 

Die Daten(-blöcke) werden im Gegensatz zu EPOP durch EGET 
im EMS-Stack nicht gelöscht und können also mehrfach gelesen 
und verwendet werden. Sollen Daten unabhängig von EGET oder 
EPOP gelöscht werden,so kann dazu EKILL verwendet werden. 


EKILL {EK} 

EMS-Daten löschen 

1 EKILL [Anzahl] EKILL "Name" 




EKILL ermöglicht das Löschen von Daten auf dem EMS-Stack 
unabhängigvon den verschiedenen EMS-Lesebefehlen.Wird EKILL 
ohne Parameter eingesetzt so wird der gesamte EMS-Stack 
gelöscht. Der Parameter ‘Anzahl’ bewirkt dagegen, daß die 
letzten (von ‘oben’ ausgehend) ‘Anzahl’ Stack-Einträge gelöscht 
werden. 


Sollen einzelne Einträge gelöscht werden, so muß ihnen bei der 
Speicherung durch EPUSH, EMEMPUSH oder EMSGET ein 
‘Name’ zugewiesen worden sein, unter welchem sie dann durch 
Ekill ' 'Name '' angesprochen und selektiv gelöscht werden 
können. ‘Name’ kann auch als Textvariable angegeben werden 
(z.B. EKILL Nam$). 


EPOP { Epo } EMS-Daten-Move (lifo) in das DOS-RAM 

EPOP Var [,Var$,Feld(),Feld$(),...] 


EPOP liest nach dem ‘//fo’-Prinzip (s. EPUSH) Daten bzw. 
Datenblöcke aus dem EMS-Stack in die angegebenen numerischen 
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oder String-Variablen ‘Vor' oder/und in die numerischen oder 
String-Felder ’Feldfy. Die in der Liste angegebenen Variablen und 
Felder brauchen nicht vorbereitet zu werden, da GFA-BASIC die 
Angaben über die Variablen- und Feldgrößen zusammen mit den 
Daten auf den Stack legt und dieVorbereitung, bzw.entsprechende 
Dimensionierungen intern vor der EPOP-Ausführung automa¬ 
tisch durchführt. Im Gegensatz zu EGET löscht EPOP den gele¬ 
senen Eintrag vom EMS-Stack. 

Achten Sie bitte darauf, daß die angegebenen Variablen und Felder 
zwar beliebige andere Namen als die bei EPUSH verwendeten 
tragen können, aber in umgekehrter Reihenfolge (!) dem Typ der 
zu lesenden Daten entsprechen müssen (Long-Integer zu Long- 
Integer, Real zu Real etc.). Durch die Umkehrung der Reihenfolge 
wird ermöglicht, daß die bei EPUSH verwendete Variablen- und 
Feldliste nicht für EPOP gespiegelt werden muß. 

Z.B. nach 

EPUSH a%,b$,ci(),d$() 

ergibt sich folgender Stack: 


letzter Eintrag 

=> d$() 

-Text-Feld 


c&() 

- num. Feld 


b$ 

- Text-Var 


a% 

- num.Var 

zweiter Eintrag 

??? 

- ... 

erster Bntrag 

=> ??? 

• 


ein EPOP a%, b$, c& (), d$ () bewirkt nun, daß die Daten 
typengerecht wieder zurückgelesen werden. Also die lerne 
Listenposition ‘dSQ’ wird zuerst mit dem ‘dJ()’-Stackeintrag 
bedient, dann die vorletzte ‘c<fi()’-Position mit dem nächsten 
‘c<fi()'-Eintrag u.s.w. 


EPUSH { EP } DOS-RAM-Daten-Move (lifo) in das EMS 

EPUSH Var[: "Name"] [,Var$[: "Name"] ,Feld()... 

...[:''Name''],Feld$()[:''Name''],...] 


Dieser Befehl legt Daten und/oder Datenblöcke aus dem DOS- 
RAM im EMS ab. Das EMS (Expanded Memory System) ist durch die 
EMS-Befehle des GFA-BASICs nur dann ansprechbar, wenn eine 
Speichererweiterung zur Verfügung steht und bei Systemstart ein 
entsprechender EMS-Treiber (EMMxxx.SyS, QUEMM.SYS etc.) 
installiert wurde. 
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Es können dann durch EPUSH beliebige Daten(-blöcke) aus dem 
Variablenspeicher des GFA-BASICs in das EMS ausgelagert wer¬ 
den, um so für weitere Daten im BASIC-Speicher Raa zu schaffen. 

Es empfiehlt sich dabei, nur solche Daten auszulagern, die tatsäch¬ 
lich auch effektiv Speicherplaa verbrauchen, wie z.B. Felder und 
Stringvariablen. Die mit EF1JSH in das EMS transferierten Daten(- 
blöcke) sind anschließend im DOS-RAM des BASICs nicht mehr 
vorhanden - es wird bei Variablen ein CLR bzw. bei Feldern ein 
ERASE durchgeführt. 

'VorJ' und ‘FeldQ’ steht hier für dieVariablen- und Feldnamen der 
auszulagernden Variablen und/oder Felder. Durch den optionalen 
Parameter ‘Name’ (max. 16 Zeichen), der auf einen Doppelpunkt 
folgend dem betreffenden‘Vorlablen- bzw.'FeWO’-Namen ange¬ 
hängt werden kann, kann den entsprechenden Daten(-blöcken) 
ein Name zugeordnet werden, unter dem sie im EMS durch EGET 
oder EKILL angesprochen werden können.'Nome' kann auch als 
Textvariable angegeben werden (z.B. EPUSH Var:Naml$, 
Var2 :Nam2$, . . .). 

Das Prinzip eines Stacks erklärt sich dadurch, daß Daten(-blöcke) 
in der Reihenfolge der Ablage-Operationen (EPUSH, 
EMEMPUSH, EMSGET) auf einen sog. ‘Stapel’ (engl.: stack) 
gelegt werden. Der zuletzt abgelegte Variableninhalt bzw. 
Datenblock liegt also auf diesem Stapel obenauf. Der Begriff 'lifo' 
sagt nun aus, daß bei einem Lesezugriff (EPOP, EMEMPOP, 
EMSPUT) zuerst der obenauf liegende Datenblock zurVerfügung 
steht und danach die weiteren Einträge in der umgekehrten 
Reihenfolge ihrer Ablage. Das zuletzt auf den Stapel gelegte Daten- 
’Paket’ wird nun bei einem Lesevorgang wieder zuerst 
'heruntergenommen’ (engl.: last in, first out = 'lifo') 


EMEMGET { ememg } freie EMS-Block-Copy in das DOS-RAM 

EMEMGET Ziel,Bytes [:Index] 

EMEMGET Ziel,Bytes [:"Naine"] 


i Der Befehl EMEMGET hat eine mit EGET vergleichbare Aufgabe. 
^ Anstatt ausgelagerter Variablen und Felder liest er ganze 
Speicherbereiche vom EMS-Stack zurück in das DOS-RAM. Wie 
auch bei EGET werden die gelesenen Daten im Gegensaa zu 
EMEMPOP nicht vom Stack gelöscht und sind so also mehrfach 
verwendbar. 
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‘Ziel’ gibt eine Speicheradresse (Segment:Offset) im DOS-RAM 
an, ab welcher der gelesene Block abgelegt werden soll. Dabei 
kann durch ‘Bytes’ zusätzlich bestimmt werden, wieviele Bytes 
übertragen werden sollen.Wird die Option ‘Name’ oder ‘Index’ 
(Bedeutung s. EGET und EPUSH) nicht verwendet, so wird der 
letzte Stackeintrag gelesen. Durch Angabe eines ‘Index’ (Trenn- 
Doppelpunkt beachten) kann unabhängig vom V/fo’-Prinzip des 
Stacks auf beliebige Daten(-blöcke) innerhalb des Stacks zugegrif¬ 
fen werden. 

Die ‘/ndex'-Zuordnung finden sie unter EGET beschrieben. 
Ebenso verhält es sich mit der Angabe des Parameters ‘Name’, 
sofern dem entsprechenden Block bei der Auslagerung durch 
EMEMPUSH ein Name zugewiesen wurde. 'Nome' kann auch 
als Textvariable übergeben und statt des Doppelpunktes vor 
‘Index’ und ‘Name’ kann auch ein Komma verwendet werden. 

Zum allgemeinen Verständnis des EMS-Stacks lesen Sie bitte 
zusäalich unter EGET und EPUSH nach. 


EMEMPOP{emempo> EMS-Block-Move in das DOS-RAM 

QIEMPOP Ziel,Bytes 


p EMEMPOP liest einen Speicherblock nach dem 7/fo’-Prinzip (s. 
^ EPUSH) in der angegebenen ‘ßytes’-Größe vom EMS-Stack und 
legt ihn im DOS-RAM an der angegebenen 'Z/e/’-Adresse 
(Segment:Offset) ab. Der Block wird im Gegensatz zu EMEMGET 
anschließend komplett vom Stack gelöscht. Auch dann, wenn in 
‘Bytes’ eine kleinere Blockgröße als bei dem entsprechenden 
EMEMPUSH-Vorgang angegeben wird. 


EMEMPUSH { EM } DOS-RAM-Blak-Copy (IHb) in das EMS 

EMEMPUSH Quell,Bytes [:''Name"] 


Durch EMEMPUSH können beliebige Speicherbereiche aus dem 
DOS-RAM auf den EMS-Stack des GFA-BASICs ausgelagert wer¬ 
den. Der Block wird grundsätzlich auf den Stack obenauf gelegt 
(‘//fö’-Prinzip s. EPUSH). 


Durch den Parameter ‘Quell’ wird eine Quell-Adresse 
(Segment:Offset) bestimmt,ab welcher dann soviele Bytes gelesen 
werden, wie im Parameter‘Bytes’ angegeben wurde. Der gelese¬ 
ne Speicherbereich wird anschließend im DOS-RAM nicht ge¬ 
löscht, die Daten bleiben erhalten. 
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Um später durch EMEMGET unabhängig vom 7//ö’-Prinzip auf 
einen beliebigen Speicherblock innerhalb des EMS-Stacks zugrei¬ 
fen zu können, muß diesem Block vorher durch EMEMPUSH ein 
Name zugewiesen worden sein. Dies geschieht durch den 
optionalen Parameter 'Nome' (max. 16 Zeichen), dem wahlweise 
ein Doppelpunkt oder ein Komma als Trennmarkierung vor¬ 
angestellt wird. ‘Name’ kann auch als Textvariable angegeben 
werden (z.B. EMEMPUSH Quell, Bytes,Nam$). 

Zum allgemeinen Verständnis des EMS-Stacks lesen Sie bitte 
zusäalich unter EGET und EPUSH nach. 


EMSGET { EMS } Screen-(Ausschnitt-)Copy in das EMS 

I EMSGET X_1inks,Y_oben,X_rechts,Y_unten[;''Name''] 


Bei hochauflösenden Farbgrafiken wird häufig der Fall auftreten, 
daß durch den Grafik-Speicherbefehl ‘GET xl,yl,x2,y2,Var$' 
die Speicherkapazität einer Stringvariable (32767 Byte) über¬ 
schritten wird. Dieses Problem kann umgangen werden, indem 
man entweder den Bildschirm in kleinere Ausschnitte unterteilt, 
die dann mit mehreren GET-Befehlen gesichert werden oder 
indem man den gesamten Ausschnitt oder Bildschirm ohne Rück¬ 
sicht auf den Speicherbedarf in einem Schritt durch EMSGET in das 
EMS auslagert. 

Dazu werden dem Befehl in ‘X_links‘/'Y_oben’ die Koordinaten 
der Ausschnitt-Ecke links-oben und in ‘X_recht$’/'y_unten' die 
Koordinaten der Ausschnitt-Ecke rechts-unten übergeben. Wird 
demAusschnittaufdenTrenn-Doppelpunktfolgend (kann auch ein 
Kommasein) ein 'Nome' zugewiesen,so kann der Befehl EMSPUT 
später unter Angabe dieses Namens mehrfach auf den Ausschnitt 
zugreifen, ohne daß der entsprechende Speicherblock im EMS 
gelöscht wird. ‘Nome’ darf maximal 6 Zeichen lang sein und kann 
auch als Textvariable angegeben werden. 


EMSPUT { EMSP } EMS-(Ausschnitt-)Copy in die Screen 

EMSPUT X_links,Y_oben[:''Name''] 


Wurde durch EMSGET ein Bildschirm(-Ausschnitt) im EMS 
^ abgelegt, so kann dieser durch EMSPUT wieder von dort ausgele¬ 
sen und in den Bildschirm kopiert werden. Dabei bewirkt die 
Angabe des optionalen Parameters ‘Nome’ hinter dem Trenn- 
Doppelpunkt (kann auch ein Komma sein),daß der entsprechende 
Speicherblock im EMS nicht gelöscht und dann auch mehrfach 
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nacheinander ausgelesen werden kann. Ein Löschen dieses Blocks 
ist im EMS dann nur durch den Befehl EKILL "Name” möglich. 

Wird kein 'Name’ angegeben, wird der zuletzt mit EMSGET im 
EMS gespeicherte Bildschirm(-Ausschnitt) zurückgelesen und 
anschließend im EMS gelöscht. 


EPARLOAD { EPARL } EMS-Konfiguration aus Datei laden 

EPARLOAD ''Dateiname'' 

K Wurde durch EPARSAVE eine komplette EMS-Konfiguration in 
^ einer Datei gesichert, kann diese durch EPARLOAD wieder 
geladen und im EMS installiert werden. Dazu ist dem Befehl der 
‘Dateiname’ (gfls. incl. Pfad) der Konfigurationsdatei zu überge¬ 
ben. Um diese Daten dann auch nutzen zu können, muß allerdings 
das ladende Programm entweder Kenntnis über den alten Stack- 
Aufbau oder die zur Speicherung verwendeten Namen haben. Um 
die EMS-Organisation nicht zu gefährden, sollte EPARLOAD di¬ 
rekt am Programmanfang eingesetzt werden. 


EPARSAVE { EPA } EMS-Konfiguration in Datei speichern 

EPARSAVE ''Dateiname'' 



Der vom GFA-BASIC belegte EMS-Speicher wird zum Abschluß 
eines Programms gelöscht. Soll nun vorher - gfls. zwecks 
Datenübergabe an ein anderes Programm - die momentane EMS- 
Konfiguration, also der komplette EMS-Stack inclusive aller 
Organisationsdaten gesichert werden, kann dies durch EPARSAVE 
erreicht werden. 


Dazu wird dem Befehl ein 'Dateiname’ (gfls. incl. Pfad) überge¬ 
ben, unter welchem später die Konfiguration durch EPARLOAD 
wieder zurückgeladen werden kann. Ein anderes Programm kann 
allerdings nur dann diesen durch EPARLOAD zurückgeladenen 
EMS-Speicher nuaen, wenn es Kenntnis über die alte EMS- 
Ordnung - also die Stack-Reihenfolge und die gfls. verwendeten 
Namen - hat. Um die EMS-Organisation im Programmverlauf nicht 
zu gefährden, sollte EPARSAVE nur am Programmende eingesetzt 
werden. 
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15. GRAFIK 

15.1. GRAFIK-DEFINITIONEN 


BOUNDARY { bou } Rand bei ‘P’-Grafikbefehlen an/aus 

BOUNDARY Flag,Vcol,Hcol 


I Schaltet die Umrandung von ‘P’-Grafikobjekten (PCIRCLE, 
^ POLYFILL, PELLIPSE etc.) an (‘Flag' = I) oder aus (‘Flag’ = 
0). Zusätzlich kann durch die Parameter ‘Ycol’ die Vordergrund- 
Farbe und durch ‘Hcol’ die Hintergrundfarbe der Umrandung 
bestimmt werden. Ist durch DEFLINE ein durchbrochener 
Linienstil eingestellte,so werden die Linienfragmente in “Vco/'und 
die Zwischenräume in ‘Hcol’ gezeichnet. Die Umrandung für 
PBOX-Flächen kann bei Bedarf durch den BOX-Befehl erzeugt 
werden. 


COLOR {CO} 

Zeichenfarbe bestimmen 

COLOR Vcol [,Hcol] 



Bestimmt durch ‘Vcol’ (Vordergrundfarbe) und ‘Hcol' 
(Hintergrundfarbe) die Ausführungsfarben für alle linien- und 
punktezeichnende Grafik-Befehle,für denTEXT-Befehl und auch 
für PRINT-Anweisungen im Grafikmodus. 


CGA 4farbig: 
Farbindex Farbe 


0 

Schwarz 

1 

Türkis 

2 

Purpur 

3 

Weiß 

EGAIVGA I6farbig: 

Farbindex 

Farbe 

0($0) 

Schwarz 

1 ($1) 

Blau 

2 ($2) 

Grün 

3 ($3) 

Türkis 

4 ($4) 

Rot 


VGA 256farbig; 
Farbindex Farbe 


0-15 wieVGA-16farbig 

16-31 16 Graustufen 

Es folgen 9 Farbpaletten 
zu je 24 Farben über 
Blau - Rot - Gelb 

Palette I (32 - 55): 

100%hell und 100%gesättigt 

Palette 2 (56 - 79): 

100%hell und 50%gesättigt 


HotSpot 






Fortsetzung: 


EGAIVGA I6farbig: { 

Farbindex Farbe | 

. _ __ _ _ _ L 

VGA 256farbig: 
Farbindex Farbe 

5 ($5) 

\ 

Purpur 1 

Palette 3 (80-103): 

6 ($6) 

Braun | 

100%hell und 20%gesättigt 

7 ($7) 

Hellgrau | 


8 ($8) 

Dunkelgrau | 

Palette 4 (104-127): 

9 ($9) 

Hellblau | 

50%hell und 100%gesättigt 

10 ($A) 

Hellgrün [ 


11 ($B) 

Helltürkis | 

Palette 5 (128-151): 

12 ($C) 

Hellrot 1 

50%hell und 50%gesättigt 

I3($D) 

Hellpurpur 1 


14 ($E) 

Gelb 1 

Palette 6 (152-175): 

I5($F) 

Weiß 1 

1 

50%hell und 20%gesättigt 


1 

1 

Palette 7 (176-199): 


1 

1 

20%hell und 100%gesättigt 


1 

1 

Palette 8 (200-223): 


1 

1 

20%hell und 50%gesättigt 


1 

1 

Palette 9 (224-247): 


1 

1 

20%hell und 20%gesättigt 


1 

1 

248 - 255 Schwarz 

Beispiel: 



SCREEN 18 

// oder 14 

oder 16 = Farb-VGA, -EGA, 

f=l,g=l 


// Starewerte 

REPEAT 


// Schleifenstart 

COLOR g 


// Farbe setzen 

FOR i%= 

-15 TO 15 

// 16 Linienrauster 

DEFLINE -2^ABS(i% 

1 // Muster setzen 

g=g+f 


// Zahler setzen 

IF g> 

Y-20 THEN f 

=-l // Decrement an 

IF g<0 THEN f=l 

// Increment an 


x%=_X/2 + SINQ(g) M_X/2-g) // X-Koord.l 

x2S=_X/2-SINQ(g)•(_X/2-g) // X-Koord.2 
y%=_Y/2-fC0SQ(gl * (_Y/2-g) // Y-Koord.l 

rr.2%=_Y/2-COSQ(g) * (_Y/2-g) // Y-Koord.2 
FOR jl=0 TO 3 // 4 Linien 

LINE x2%+j%,y2S,xl+j%,yl// nebeneinander 
LINE x2%,y2l+j%,xl,yl+j%// zeichnen 
NEXT jl // nächste Linie 

NEXT i% // nächstes Muster 

UNTIL MOÜSEK //r.Maust.=Abbruch 
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DEFFILL {DEFF} 

Füllmuster bestimmen 

1 

i DEFFILL Stil 

DEFFILL Muster$ 




Legt im Grafikmodus das Füllmuster für deckend gezeichnete 
Grafik-Objekte (PBOX, PCIRCLE, PELLIPSE, PRBOX, 
POLYFILL) und für Linienbefehle mit einer Liniendicke von mehr 
als einem Punkt fest. Durch die zweite Syntax-Variante wird 
außerdem eine eigene Muster-Definition ermöglicht. 


‘Stil’: 


0 

kein Muster 

1 - 7 

Graustufen 

8 

vollflächig 

9-24 

Punkt-Muster 

25-36 

Strich-Muster 


nnnnni 

mm 



Hl 


[0 12 3 4 5 6 7 8 9 10 11 


I 


♦♦♦♦ i 
♦♦♦♦: 
♦♦♦♦: 
♦♦♦♦; 


12 13 14 15 16 17 18 19 20 21 22 23 24 


üHn 


25 26 27 28 29 30 31 32 33 34 35 36 


MitderVariante DEFFILL Muster$ läßt sich ein eigenes Füllmuster 
einrichten. Dazu ist in ‘Muster$’ ein 8 Byte langer String zu 
übergeben. Die Bitmuster dieser 8 Bytes beschreiben ein 8x8- 
Punktraster (I .Byte = I .Bitmuster-Zeile etc.). Das Muster kann 
auch als Textausdruck direkt übergeben werden. 

z.B. 

DEFFILL ''<$ü"+CHR$ (231)+CHRS (2311 +"ÜS<" 


DEFLINE {DEFL} Linien-Attrribute bestimmen 

DEFLINE [Stil],[Dicke],[Eckform],[Endform] 



Durch DEFLINE erfolgt die Festlegung der Attribute, mit denen im 
Grafikmodus linienzeichnende Befehle ausgeführt werden. 
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‘Stil’: 


0 

1 

2 

3 

4 

5 

6 


weiße Linie 
geschlossene Linie 
^^h[i»Tic^^l^ine 

.. 

. _ . Strich-Punictlinie _ 

S trichl i nie m . großen Ab s tände n 
Strich-Punkt-Punklinie 


-&XI bis -&XI 11111111111111= selbstdefiniert 

Der selbstdefinierte Linien-’St//’ setzt sich aus einem 15 Bit-Wert 
zusammen, wobei jedes gesetzte Bit einem Punkt in der Linie 
entspricht.Diese Zahl muß als Minuswert übergeben werden. 

‘Dicke’ legt die eine beliebige Liniendicke fest (in ungeraden Zer- 
Schritten: 1.3,5...). Ist die Linien-’D/cke' größer als 3, so wird die 
Linie in dem durch DEFFILL eingestellten Füllmuster ausgeführt. 

‘Eckform’ bestimmt die Ausführungsform zweier 
aufeinandertreffender Linienenden (bei POLYLINE, 
DRAW..TO..TO oder DRAW$): 

0 = normal 

1 = gegehrt 

2 = gerundet 

‘Endform’legt dagegen die Form der Linienenden allgemein fest, 
also auch bei einzeln gezeichneten Linien (LINE, DRAW..TO ect.) 

1 = eckig 

2 = quadratisch 

3 = gerundet 

Die Parameter müssen nicht angegeben werden. Es ist möglich, 
gezielt nur einzelne Parameter zu ändern. Die Trennkommas 
zwischen den Parametern sind allerdings immer anzugeben (z.B. 

DEFLINE ,5,, 2). 
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DEFTEXT {DEFT} 

Fett-Text an/aus 

DEITEXT [?], Art, [?],[?], [?] 



DEFTEXT ermöglicht im Grafikmodus die Wahl zwischen fetter 
und normaler Schriftdarstellung. 



Außerhalb von GFA-Windows hat dieser Befehl nur Auswirkung 
auf die mit TEXT ausgegebenen Zeichen. Innerhalb von GFA- 
Windows können auch mit PRINT ausgegebene Zeichen beeinT 
flußt werden. 

‘Art’ gibt die gewünschte Darstellung an: 

gerader Wert in‘Art’ = normaler Text 

ungerader Wert in‘Art’ = fetter Text 

Die Besonderheit bei diesem Befehl besteht darin, daß er aus 
Kompatibilitatsgründen auch im GFA-BASIC unter MSDOS alle 
fünf im Atari-GFA-BASIC verwendbaren Attribut-Parameter ak¬ 
zeptiert, obwohl nur der zweite Parameter ausgewertet wird. Das 
Komma vor diesem Parameter muß dazu unbedingt angegeben 
werden. 

Weitere Möglichkeiten zur Text-Modifikation finden Sie unter 

WINDSET 14 und LOADFONT 


GRAPHMODE {G} 

Grafikmodus bestimmen 

GRAPHMODE Modus 


Der Parameter ‘Modus’ entscheidet im Grafikmodus über die 
Vorgehensweise bei der Verknüpfung von Bildschirmausgaben 
(PBOX, LINE,TEXT, PRINT etc.) mit dem bereits bestehen¬ 
den Bildschirminhalt. 

/ = replace = 

Der alte Inhalt wird durch das 
neue Objekt komplett ersetzt 

2= transparent^ 
(OR) 

Der alte Inhalt wird nur dort 
überschrieben, wo das neue 

Objekt Punkte aufweist 

3= XOR = 

Bildpunkte des alten Inhalts 
werden invertiert, wenn das 
neue Objekt an gleicher Position 
Punkte aufweist 


ft 
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4 - invers transp= Der alte Inhalt wird dort 

(NOT AND) gelöscht wo das neue Objekt 

Punkte aufweist 


SETCOLOR {SET} Farbregister einstellen 

SETCOLOR Reg,Rot,Grün,Blau 


K Es kann die Farbe des mit ‘Reg’ angegebenen Farbregisters (CGA 
^ = 0 bis 3,EGAIVGA = 0 bis 15) durch Angabe der RGß-Farbanteile 
‘Rot’/Grün’und‘Blau’(0 bis 63) definiert werden. Die Farbe ist 
dann durch COLOR ‘Reg’ verfügbar. 


SYSCOL {SY} Farbe für Menüs, Fenster etc. bestimmen 

SYSCOL,Obj ekt,Vcol,Hcol 


I SYSCOL erlaubt es,den verschiedensten Objekten einer grafischen 
Benutzeroberfläche-wiez.B.Fenstern.PulldownmenüsAlertboxen 
etc. - unabhängig voneinander beliebige Farben aus der aktuellen 
Palette zuzuordnen.Voraussetzung dazu ist allerdings, daß vorher 
durch SCREEN ein Bildschirm-Modus eingestellt wurde. 


Die Farben werden durch die Parameter ‘Vcol’ für die 
Vordergrundfarbe und ‘Hcol’für die Hintergrundfarbe des Objek¬ 
tes bestimmt wobei die Bezeichnungen Vorder- und Hintergrund 
in einigen Fällen mißverständlich ist Erläuterungen dazu finden Sie 
unten. Den Aufbau der Farbpaletten finden Sie unter COLOR 
beschrieben (beachten Sie dazu auch SETCOLOR). 


Der Parameter ‘Objekt’ sagt aus, auf welches Element der 
grafischen Benutzeroberfläche sich die Farbänderung bzw. eine 
Attribut-Änderung auswirken soll: 


0 

1 

2 

3 

4 

5 

6 

7 

8 


Menüleiste 
Pulldown-Menüs 
PopUp-Menüs 
Fensterrahmen- Fläche 
Objektumrandung (3D) 
Fenster-und PopUp-Text 
Bildschirm-’Fenster 0' 
‘Fenster O’-Füllmuster 


(vcol, hcol ) 
(vcol, hcol ) 
(vcol, hcol ) 
(vcol, hcol ) 
(li/ob , re/un) 
(wincol, popcol) 
(vcol, hcol ) 
(muster, 0 ) 


ALERT und FILESELECT(vcol, hcol ) 
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In den Klammern hinter den Objekt-Bezeichnungen ist erkennbar, 
worauf sich die SYSCOL-Parameter in den einzelnen Fällen bezie- 
hen/Vco/’und‘Hco/*bedeutetdaß sich die Parameter tatsächlich 
auf dieVorder- und die Hintergrundfarbe auswirken (bei 'Objekt 6’ 
bitte OPENW #0 beachten). 

Bei ‘Objekt 4’ (3D) ist mit‘/i/ob’die Farbe der Objekt-Umrandung 
an der linken und oberen Seite und mit 're/un' die Farbe der 
Objekt-Umrandung an der rechten und unteren Seite gemeint. Bei 
entsprechender Farbgestaltung (z.B. Hell- und Dunkelgrau oder 
auch Hell- und Dunkelgrün) kann hiermit ein dreidimensionaler 
grafischer Effekt erzeugt werden. 

Mit‘Objekts’wird durch den ersten Parameter ('w/nco/') dieText- 
bzw. Füllmusterfarbe innerhalb der Randobjekte eines aktiven 
Fensters bestimmt. Die Hintergrundfarbe für die Randobjekte 
bezieht das aktive Fenster ebenfalls durch ‘Hcol’ bei Objekt'3'.Der 
zweite Parameter {’popcol’) dagegen stellt die Textfarbe für 
POPUP-Menü-Einträge ein. 

'Objekt T dagegen hat garnichts mit Farbgestaltung zu tun. Durch 
den ersten Parameter (‘muster^ wird hier festgelegt mit wel¬ 
chem Füllmuster (s. DEFFILL) das ‘Fenster 0’ (s. OPENW #0) - 
also der Bildschirmhintergrund - bei Lage- oder Größenänderungen 
anderer Fenstern (GFA-Window I - 4) in den betroffenen Berei¬ 
chen restauriert werden soll. 


15.2. GRAFIKBEFEHLE 


BOX { B } Linien-Rechteck zeichnen 

BOX X_links,Y_oben,X_rechts,Y_unten 

■ ‘XJinks’, 'Y_oben’ und ‘X_rechts’, ‘Y_unten’ bezeichnen die 
diagonal gegenüberliegenden Ecken eines Rechtecks, das im 
Grafikmodus als Linienzug mit den unter DEFLINE eingestellten 
Attributen gezeichnet wird. 


CIRCLE { CI } Linien-Kreis(-Bogen) zeichnen 

CIRCLE X_mitte,Y_mitte,Radius [,Sw,Ew] 

Das Koordinatenpaar ‘X_mitte’ und 'Y_mitte’ bestimmt im 
Grafikmodus den Kreismittelpunkt 'Radius' beschreibt den 
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Kreisradius (halber Kreisdurchmesser). Werden die optionalen 
Parameter ‘Sw‘ und ‘Ew’ (in Grad: 0 bis 360) verwendet, so wird 
ein Kreis-Segment mit dem Startwinkel 'Sw' und dem Endwinkel 
‘Ew’ gezeichnet. 



CURVE {CU} 4Punkt-’Bezier’-Kurve zeichnen 

CURVE Sx,Sy,Mxl,Myl,Mx2,My2,Ex,Ey 



Eine ‘ßez/er’-Kurve ist die grafische Darstellung einer mathemati¬ 
schen Formel.Dabei werden die beiden Koordinatenpaare‘Sx’,'Sy' 
und ‘Ex’/Ey’ als Start- und Endpunkte einer Linie angesehen. Die 
beiden Koordinatenpaare ‘Mxl’/Myl' und ‘Mx2’/My2' stellen 
dagegen zwei ‘Alognet'-Punkte dar, von denen die Linie zwischen 
‘Sx'.’Sy’ und ‘Ex’.’Ey’ quasi 'angezogen’ wird. 


Mit dieser Kurve ist es z.B. relativ leicht möglich, im Grafikmodus 
auch komplizierte geometrische Figuren mit wenigen CURVE- 
Befehlen zu zeichnen. Im wesentlichen wird die ‘ßez/er’-Kurve bei 
der platzsparenden und skalierbaren Konstruktion von 
Schriftzeichen eingesetzt. Statt durch die Definition mehrerer 
Punktkoordinaten, welche z.B. die Rundungen eines 'S’ beschrei¬ 
ben, kann ein ‘S’ in beliebiger Größe dagegen mit nur zwei 'Bezier'- 
Kurven konstruiert werden. 

% 

Bei der Zeichnung der Kurve wird die aktuelle DEFLINE-Einstel- 
lung nicht berücksichtigt. 


DRAW {DR} Punkte zeichnen und verbinden 

DRAW TO Xpos.Ypos 

DRAW XI,Y1 [TO X2,Y2 [TO X3,Y3...]] 



Die erste Syntax-Variante verbindet im Grafikmodus den durch 
‘XposlYpos’ bezeichneten Punkt durch eine Linie mit dem zuletzt 
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durch DRAW, PLOT oder LINE gezeichneten Grafik-Punkt. 
Die DEFLINE-Einstellungen werden dabei berücksichtigt. 

Die zweite Variante zeichnet entweder einen einzelnen Punkt (vgl. 
PLOT), falls nur ein Koordinatenpaar angegeben wird. Werden 
mehrere Paare angegeben, so zeichnet der Befehl einen beliebig 
langen Linienzug durch die in der Koordinaten-Liste angegebene 
Punkte-Kette. 


DRAW “Text” { dr > Plotter(-Turtle’)-Grafik zeichnen 

DRAW Def$[,Const[, "Def" [,Var[_ ]]]] 


Erlaubt im Grafikmodus eine Plotter-Simulation auf dem Bild- 
schirm (LOGO-Turt/egro^k).In‘Def5'bzw.‘‘Def”können wahlweise 
als alphanumerischer Ausdruck, als Stringvariable oder 
Textkonstante Turt/e’-Kommandos angegeben werden. 

Die Angabe der Entfernungen, Winkel und Koordinaten kann 
außerdem wahlweise auch als numerischer Ausdruck,als Konstan¬ 
te, als Variable oder innerhalb von “DeßT’Def" erfolgen. Dabei 
ist die Anzahl der durch Kommas getrennten Dnzelanweisungen 
beliebig (max. Eingabezeilenlänge = 255 Zeichen). Das Komma 
kann in den meisten Fällen auch vernachlässigt werden. 

Als Kommandos sind folgende Kürzel gültig: (‘n’enthält den jeweils 
anzugebenden Wert, 'x,y‘ die betreffenden Koordinaten) 


fd n ; bewege ‘Stift’ um 'n' Pixel vorwärts 

bk n : bewege ‘Stift’ um 'n' Pixel rückwärts 

sx n : Scalierung aller bei ‘fd’ und ‘bk’ 

angegeben Werte in X-Richtung mit 
dem Wert ‘n’ (0 = Scalierung aus) 
sy n : Scalierung aller bei ‘fd’ und 'bk' 

angegeben Werte inV-Richtung mit 
dem Wert 'n' (0 = Scalierung aus) 

It n drehe ‘Stift’ um ‘n’ Grad nach linl« 

rt n : drehe ‘Stift’ um ‘n’ Grad nach rechts 

tt n : setze ‘Stift’ absolut in Richtung ‘n’ Grad 

(Gradeinteilung s. SETDRAW) 
ma x,y : bewege ‘Stift’ (pu) absolut nach ‘x,y’ 

(s. auch SETDRAW) 

da x,y : bewege ‘Stift’ zeichnend (pd) zu der 

relativen Position ‘x,y’ 

mr x,y : bewege ‘Stift’ (pu) relativ nach ‘x,y’ 
dr x,y : bewege ‘Stift’ zeichnend (pd) zu der 

relativen Position ‘x,y’ 
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CO n : Linienfarbe 'n' einstellen (s. COLOR) 

pu ‘Stift’ anheben (Stift ‘schwebt") 

pd ‘Stift’ aufsetzen 

Z.B.: (s. auch unter SETDRAW) 


Al=40 

A$=''ma320,200 

DRAW AS,''tt45 pd fd70 rc90 £d40 pu fd20 pd'' 

DRAW " fd" , AI , " ltl35 bk" , 4 *60-140 , "rt315 fd 170" 


DRAWQ Plotter(-Turtle’)-Attribute ermitteln 

Var=DRAW(Index) 

Liefert im Fließkommaformat Informationen über die aktuellen 
DRAW-Turt/e’-Attribute. 


Index": 0 

= X-Position 

1 

= Y-Position 

2 

= Winkel in Grad 

3 

= X-Skalierungsfaktor 

4 

= Y-Skalierungsfaktor 

5 

= Pen-Flag (-1 =pu; 0=( 


ELLIPSE { ELL } Linien-Ellipse(n-Bogen) zeichnen 

ELLIPSE Xmitte,Ymitte,Xrad,Yrad [,Sw,Ew] 



'Xmitte’ und 'Ymitte' legen im Grafikmodus den Mittelpunkt der 
zu zeichnenden Ellipse fest'Xrod’ist der Ellipsenradius in horizon¬ 
taler Richtung und ‘Yrad’ der Radius in vertikaler Richtung. Zur 
Winkeleinteilung für die Option ‘Sw" und ‘Ew" beachten sie bitte 
die Ausführungen zu CIRCLE. 


FILL { Fl } Flächen mit Muster füllen 

FILL 5^s,Ypos [,Farbe] 


p ‘Xpos' und ‘Ypos* geben die absolute Lage des Bildschirmpunktes 
® an. bei welchem im Grafimodus der Füllvorgang begonnen werden 
soll. Dabei wird das aktuell durch DEFFILL eingestellte Füllmuster 
verwendet. 
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Mit dem optionalen Parameter‘Forbe'kann ein Farbwert angege¬ 
ben werden,der dann bewirkt,daß ausschließlich Bildschirmpunkte 
mit der angegebenen Farbe als Füllbegrenzung gewertet werden. 
Alle anderen Punkte werden gefüllt. Hat z.B.der Bildpunkt‘Xpos’/ 
’Ypos’ die angegebene ‘Forbe’, wird der Füllvorgang sofort abge¬ 
brochen. 

Bei eingeschaltetem Clipping (s.CLIP) wird generell nur bis an die 
Grenzen des aktuellen CLIP-Ausschnitts gefüllt. 

Beachten Sie auch das Beispiel zu STR$0. 


LINE {LI} 

Linie zeichnen 

LINE 5^sl,Yposl,5^s2,Xpos2 



Die Koordinatenpaare ‘XposI’, ‘YposT und ‘Xpos2’, ‘ypo$2’ 
werden im Grafikmodus durch eine gerade Linie verbunden. Dabei 
werden die zuletzt durch DEFLINE und COLOR ausgewählten 
Attribute berücksichtigt. 


PBOX { PB } gefülltes Rechteck zeichnen 

PBOX X_links,Y_oben,X_rechts,Y_unten 


‘XJinks’, ‘Yjoben’ und ‘Xjrechts’, ‘Y_unten’ bezeichnen die 
diagonal gegenüber liegenden Ecken eines Rechtecks, das im 
Grafikmodus als gefüllte Fläche mit dem aktuell durch DEFFILL 
eingestellten Füllmuster gezeichnet wird. 


PCIRCLE { PC } gefüllten Kreis(-Ausschnitt) zeichnen 

i^PCIRCLE X_mitte,Y_mitte,Radius [,Sw,Ew] 

‘X_mitte’ und ‘Y_mitte' bestimmen den Mittelpunkt der im 
Grafikmodus zu zeichnenden Kreisfläche. Der Parameter ‘Radi¬ 
us’bestimmt dabei den Radius (halben Kreisdurchmesser).Wer¬ 
den die optionalen Parameter ‘Sw’ und ‘£w’ (in Grad: 0 bis 360) 
verwendet, so wird ein Torten-Segment mit dem Startwinkel ‘Sw’ 
und dem Endwinkel ‘Ew’gezeichnet. Die Winkeleinteilung finden 
Sie unter CIRCLE beschrieben. 
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PELLIPSE { PE } gefüllten Ellipse(n-Ausschnitt) zeichnen 

PELLIPSE Xmitte,Ymit:te,Xrad,Yrad [,Sw,Ew] 


M 'Xfu/tte' und "Ymltte’ legen den Mittelpunkt der im Grafikmodus 
zu zeichnenden Ellipsenfläche fest 'Xrad’ ist der Ellipsenradius in 
horizontaler Richtung und "Yrad" der Radius in vertikaler Rich¬ 
tung. Zur Winkeleinteilung (in Grad:0 bis 360) für die Option‘Sw’ 
und ‘£w’ beachten sie bitte die Ausführungen zu ELLIPSE und 
PCIRCLE. 


PLOT { PL } einzelnen Bildschirmpunkt zeichnen 

PLOT >4>os,Ypos 


Das Kordinatenpaar 'Xpos'und ‘Ypos’ bestimmt im Grafikmodus 
die Lage eines Bildschirmpunktes, der in der durch COLOR 
bestimmten Farbe gezeichnet werden soll. Dabei stehen die 
angegebenen Koordinaten entweder in Relation zur absoluten 
linken, oberen Bildschirmecke oder in Fenstern zur linken, oberen 
Fensterecke oder zu dem durch CLIP OFFSET bestimmten 
Nullpunkt. PLOT wird von der Linienbreite-Definition durch 
DEFLINE nicht beeinflußt. 


POLYFILL { poLYF } gefülltes Vieleck zeichnen 

POLYFILL Pkte,Xp(),Yp() [OFFSET Xoff,Yoff] 


Es wird im Grafikmodus ein beliebig geformtes Polygon gezeichnet 
‘Pkte’ bestimmt dabei die Anzahl der zu verbindenden Punkte 


(max. 128). Die vorher zu dimensionierenden Integer-Felder 
‘xpo’ und ‘TpO’enthalten in analoger Reihenfolge jeweils die X- 
und Y-Koordinaten der Eckpunkte. Dabei enthält das erste Ele¬ 
ment des Feldes (‘Xpos(O)’ bzw. YposfO)’ bei OPTION BASE 0) 
jeweils die entsprechende Koordinate des ersten Eckpunktes. Es 
werden nun aufsteigend soviele Koordinatenpaare aus den Feldern 
verwertet, wie in ‘Pkte’ angegeben wurde. Der Start- und der 
Endpunkt des Polygons werden automatisch miteinander verbun¬ 
den und anschließend die zwischen den Polygon-Linien einge¬ 
schlossenen Flächen mit dem in DEFFILL angegebenen Füllmuster 
ausgefüllt. 


Mit der Option OFFSET ‘Xoff’/Yoff' kann der Linienzug durch 
Angabe eines Pixel-Offsets unter Beibehaltung der ursprünglichen 
Feld-Inhalte in die entsprechende Richtung verschoben werden. 
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POLYLINE { POL } Linien-Vieleck zeichnen 

POLYLINE Pkte,Xp{),Yp() [OFFSET Xoff,Yoff] 


P Es gelten die gleichen Ausführungen wie zu POLYFILL, nur daß 
^ hier der gezeichnete Linienzug nicht gefüllt wird. DEFLINE wird 
hierbei berücksichtigt. 


PRBOX { PRB } gefülltes Rundeck zeichnen 

PRBOX X_links,Y_oben,X_rechts,Y_unten 


Es gelten die gleichen Ausführungen wie zu PBOX. Die 
^ Rechteckfläche wird jedoch mit runden Ecken gezeichnet. 


PSET {PS} Punkt zeichnen incl. Farbbestimmung 

PSET Xpos,Ypos,Farbe 



PSET ist prinzipiell identisch mit PLOT (s. dort), jedoch langsa- 
merAnders als bei PLOT muß hier zusätzlich zu den Koordinaten 
angegeben werden, in welcher ‘Farbe’ der Punkt gezeichnet 
werden soll (s.COLOR). Dadurch ist es jedoch möglich, einzelne 
Punkte in verschiedenen Farben zu zeichnen, ohne die allgemeine 
Farbeinstellung dazu ändern zu müssen. 


RBOX { RB } Linien-Rundeck zeichnen 

RBOX X_links,Y_oben,X_rechts,Y_unten 


Es gelten die gleichen Ausführungen wie zu BOX. Das Rechteck 
wird jedoch mit runden Ecken gezeichnet. 


SETDRAW { SETD } DRAW-Turtle’ positionieren 

SETDRAW Xpos,Ypos,Grad 


■ P Setzt im Grafikmodus den Stift für Plotter(-Turt/e’)-Grafik auf die 
^ absolute Position ‘Xpos’/Ypos’ und dreht die sog. Turtle' in die 
durch ‘Grad’ angegebene Richtung . 
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Beispiel: (ohne Erklärung - einfach abtippen) 

SCREEN 18 
GRAPHMODE 3 
FOR j%=0 TO 1 

FOR ic*=60 TO _Y-40 STEP 40 
FOR i*=60 TO _X-80 STEP 40 
SETDRAW i%,kl,i%-f90 

DRAW "pd rt90 fdio rt90 fdl5 lt45 £d7 lt45 £d20" 
DRAW "lt45 £d7 lt45 £d5 lt90 fdlO lt90 fdS rt90" 
DRAW ''fdlO rt90 fdl5 rt90 fd30 rt90 £d20 rt45'' 

DRAW ''fdl4.1 rt45 fd30 rt45 fdl4.1 rt45 fd20 pu'' 
DRAW "fdl5 pd fd20 rt90 fdlO rt90 fdl5 lt45 £d7" 
DRAW "lt45 fdS lt90 fdlC rt90 fdlO rt90 fdlO lt90" 
DRAW ''fd20 rt90 fdlO rt90 £d40 rt45 fdl4.1 rc45'' 
DRAW "fd2C pu fdl5 pd fdl5 r:45 £d:4.1 rt45 :d43" 
DRAW "rt90 fdlO rt90 £d20 lt90 £dl5 lt9C fd20 rcPO" 
DRAW ''fdlO rt90 fd40 rt:45 fdl4.1 pu rt;13£ fdl5 pd'' 
DRAW "fd5 lu90 fdl5 lt90 fd5 :t45 fd7 lc45 fd51:45" 
DRAW ''fd7 pu'' 

NEXT 
NEXT 
NEXT j* 


TEXT { T } Text im Grafikmodus ausgeben 

TEXT Xstart,Ystart, "Text" 


Das Koordinatenpaar ‘Xstart’ und ‘YstarV steht für den 
Bildschirmpunkt, an den im Grafikmodus der angegebene 'Text’ 
mit der linken, unteren Ecke des ersten Zeichens angelegt wird. 
Die aktuellen Einstellungen von DEFTEXT, WINDSET 14, 
LOADFONT, COLOR und GRAPHMODE werden dabei 
berücksichtigt. 

‘Text’ kann sowohl direkt als Text, als Stringvariable oder als 
zusammengesetzter Textausdruck (A$ + Str$ (' ' 1 '')) angege¬ 
ben werden. 
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15.3. GRAFIKBILDSCHIRM- 
OPERATIONEN 


_ADAP 

aktuellen Grafik-Adapter ermitteln 

Var=_ADAP 



■ Durch diese reservierte Variable kann festgestellt werden, welche 
Grafik-Karte momentan angeschlossen ist. 


0 

= MDA 

- Mono-Textkarte 

1 

= HGC 

- Mono-Hercules-Karte 

2 

= CGA 

- Color-Grafik-Karte 

3 

= EGA 

- Color-Grafik-Karte 

4 

= VGA 

- Color-Grafik-Karte 

5 

= ??? 

- evtl. Super-VGA 


_C mögliche Farb-Anzahl ermitteln 

Var= C 

1_I_ ... 


Diese reservierte Variable enthält die Information über die zur Zeit 
möglichen Farben: 


MDA = 0 

HGC ■ = 2 

CGA =4 

EGA/VGA (je nach Modus) = 2 bis 16 

VGA (SCREEN-Modus 19) = 256 


_MD aktuellen SCREEN-Modus ermitteln 

Var=_MD 


■ Durch diese reservierte Variable kann ermittelt werden, welcher 
Bildschirm-Modus momentan aktiviert ist. Der hier gelieferte 
Wert entspricht dem in SCREEN anzugebenden Modus-Wert (s. 
dort). 
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_X aktuelle Bildschirm-/Fenster-Breite ermitteln 

Var=_X 


Die reservierte Variable _X liefert die aktuell verfügbare horizon¬ 
tale Auflösung des Bildschirms. Dies ist im Grafikmodus die Pixel- 
Breite (z.B.bei SCREEN 18:640) und imTextmodus dieTextraster- 
Breite (z.B. bei SCREEN 3:80). Ist durch OPENW# ein Fenster 
aktiviert v/orden,so wird die verfügbare Pixel-Breite der Fenster- 
Arbeitsfläche geliefert. 


Beachten Sie auch die Beispiele zu STR$() und SETDRAW. 


_Y aktuelle Bildschirm-/Fenster-Höhe ermitteln 

Var=_Y 


B Die reservierte Variable _Y liefert die aktuell verfügbare vertikale 
® Auflösung des Bildschirms. Dies ist im Grafikmodus die Pixel- 
Höhe (z.B.bei SCREEN 18:480) und imTextmodus die Textraster- 
Höhe (z.B. bei SCREEN 3:25). Ist durch OPENW# ein Fenster 
aktiviert worden, so wird die verfügbare Pixel-Höhe der Fenster- 
Arbeitsfläche geliefert. 

Beachten Sie auch die Beispiele zu STR$() und SETDRAW. 


CLIP { CLi } Grafikausgabe-BereichZ-Nullpunkt bestimmen 

CLIP Xli,Yob,Breite,Höhe [OFFSET X,Y] 

CLIP Xli,Yob TO Xre,Yun [OFFSET X,Y] 

CLIP #Nurnmer [OFFSET X,Y] 

CLIP OFFSET X,Y 


CLIP ermöglicht im Grafikmodus die Bestimmung eines 
Bildschirmrechtecks, auf welches dann (außer PUT) sämtliche 
Grafikausgaben begrenzt werden. Alle Teile von Grafikausgaben, 
die außerhalb der Grenzen dieses Rechtecks liegen, werden nicht 
gezeichnet. 


In der ersten Syntax-Variante gibt das Parameter-Paar 'X/i' und 
'Yob' die Position der linken, oberen Ecke, sowie ‘Breite’ und 
‘Höhe" die Pixel-Ausdehnung des CLI P-Rechtecks in horizontaler 
und vertikaler Richtung an. 


^ ft 
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Durch die zweite Syntax-Variante ist es möglich, im Koordinaten- 
Paar ‘Xre’ und Tun' hinter TO die absolute Position der rechten, 
unteren Ecke des CLIP-Rechtecks anzugeben. 

Die dritte Syntax-Variante bewirkt eine Beschränkung von 
Grafikausgaben auf den Arbeitsbereich eines durch OPENW# 
geöffneten GFA-Fensters mit der angegebenen ‘#Nummer’. Die 
Position und Ausmaße der Arbeitsfläche dieses Fensters werden 
dann als CLIP-Rechteck installiert. 

Die Option OFFSET ‘X’/V* kann an die verschiedenen CLIP- 
Varianten angehängt werden, wodurch ein neuer Koordinaten- 
Nullpunkt für die folgenden Grafik-Ausgaben bestimmt wird.Alle 
Grafik-Ausgaben werden dann um den Betrag ‘X' in horizontaler 
und um T' in vertikaler Richtung versetzt gezeichnet. 

Die vierte Variante zeigt, daß die Option OFFSET auch 
allein eingesetzt werden kann. Sie legt dann ebenfalls - wie eben 
beschrieben - den neuen Koordinaten-Nullpunkt fest. 


CLIP OFF {CLIO} 

Grafik-Clipping aufheben 

CLIP OFF 




CLIPP OFF schaltet das aktuelle Clipping (s. CLIP) wieder aus, 
sodaß wieder der gesamte Bildschirm für die Grafik-Ausgabe zur 
Verfügung steht. 


GETSIZEQ Speicherbedarf für GET-Befehl ermitteln 

Var=GETSIZE(X_links,Y_oben,X_rechts,Y_unten) 


Mit dieser Funktion kann vor Ausführung eines GET-Befehls im 
Grafikmodus ermittelt werden, wieviel Speicherplatz der durch 
die beiden Koordinatenpaare‘X_//nks’,T_oben'und‘X_rec/its’, 
T_unten’ beschriebene Ausschnitt bei einer Speicherung mittels 
GET verbrauchen würde. In den Fällen, daß GET mehr als 32767 
Bytes benötigen würde,kann dadurch die Fehlermeldung'Str/ngzu 
lang vermieden werden. 
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GET { GE } Bildschirmbereich im Grafikmodus speichern 

GET X_links,Y_oben,X_reclits,Y_unten,Var$ 

B Durch die Koordinatenpaare ‘XJinks’/Yjoben’ und ‘X_rechts’, 

^ ‘Y_unten’ wird im Grafikmodus ein Bildschirmausschnitt defi¬ 
niert, welcher als Bitmuster in die Stringvariable “VorJ’ eingelesen 
wird und dann durch PUT wieder an eine beliebige 
Bildschirmposition zurückkopiert werden kann. Überschreitet 
der Speicherbedarf des Ausschnitts die max. Stringlänge von 
32767 Byte, so muß der Ausschnitt entsprechend reduziert oder 
in kleinere Abschnitte unterteilt werden, die dann getrennt durch 
GET gesichert werden. Um die Fehlermeldung 'String zu lang' zu 
vermeiden, kann durch die Funktion GETSIZE() der 
Speicherbedarf eines Ausschnitts vorher ermittelt werden. 


POINTO Farbwert eines Bildpunktes ermitteln 


Var=POINT (>4)03, Ypos) 


Liefert im Grafikmodus die Nummer des Farbregisters, aus dem 
der durch ‘Xpos’, ‘Ypos’ bezeichnete Bildschirm-Punkt seine 
Farbe bezieht (s. COLOR). 


PUT { PU } Bildschirmbereich im Grafikmodus setzen 

POT X_links,Y_oben,Var$ [,Modus] 



Zeichnet im Grafikmodus einen durch GET eingelesenen 
Bildausschnitt an die Koordinaten 'X_linksTY_oben‘. Die ur¬ 
sprüngliche Größe bleibt dabei unverändert. 


Durch die Option ‘Modus’ kann bestimmt werden, in welcher Art 
der zu zeichnende Ausschnitt mit dem bereits bestehende Hinter¬ 
grund verknüpft wird. Dabei gelten dieselben Festlegungen, wie 
unter GRAPHMODE beschrieben. 


‘Modus’: 

1 

= replace 

2 

= OR (transparent) 

3 

= XOR 

4 

= NOT AND (invers transparent) 


Wird ‘Modus’ nicht angegeben, wird im Rep/oce-Modus gezeich¬ 
net. 
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RCJNTERSECTO Überiappung zweier Rechtecke ermitteln 

Var=RC_rMrERSECT(XI,Yl,Bl,Hl,X2&,Y2&,B2&,H2&) 


Diese Funktion stellt fest ob sich die beiden angegeben Rechtecke 
in einem Bereich überschneiden (z.B. für Wmdow-Redraw sehr 
wichtig). 


Das erste Rechteck wird durch Angabe des Koordinaten-Paars 
‘X/' und ‘Yl’ für die linke,obere Ecke, sowie durch seine Breite 
in ‘Bl’ und seine Höhe in ‘Hl’ beschrieben. Die Angabe dieser 
Parameter kann beliebigerfolgen (num. Expr.,num.Var.,Wert).Die 
Koordinaten und Maße des zweiten Rechtecks sind dagegen in 
Integervariablen zu übergeben,da diese beiAbschluß der Funktion 
als Rückgabevariablen benötigt werden. 

Bei Überschneidung der beiden Rechtecke enthält‘Vor’TRUE (-1) 
und in den Variablen ‘X2£’,‘Y2<&’,‘B2£’ und ‘HZ<£’werden die 
Koordinaten und Maße der Schnittfläche zurückgegeben. Über¬ 
schneiden sich die Rechtecke nicht enthält'Vor'FALSE (0) und in 
‘X2<&’, ‘Y2£’. ‘B2£’ und ‘H2<S’ werden die Koordinaten und 
Maße des dazwischenliegenden Rechtecks geliefert. Die zurück¬ 
gegebene Breite oder/und Höhe ist/sind in diesem Fall negativ. 


SCREEN {SC} 

Bildschirm-Modus bestimmen 

SCREEN Modus 



Durch SCREEN können - abhängig von den Fähigkeiten des 
angeschlossenen Grafik-Adapters - verschiedene Grafikmodi ein¬ 
gestellt werden. (Tabelle s. Folgeseite). 
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_MD 


_c 

_ADAP 

Karte 

_X 

D 

_TS 

Modus 

Typ 

Farbe 



Breite 

Höhe 

Adresse 

-1 

Grafik 

2 

1 

HGC 

720 

348 

$8000 

0 

Text 

o 

2 

CGA 

40 

25 

$8800 

1 

Text 

o 

2 

CGA 

40 

25 

$8800 

2 

Text 

o 

2 

CGA 

80 

25 

$8800 

3 

Text 

o 

2 

CGA 

80 

25 

$8800 

4 

Grafik 

4 

2 

CGA 

320 

200 

$8800 

5 

Grafik 

4 

2 

CGA 

320 

200 

$8800 

6 

Grafik 

2 

2 

CGA 

640 

200 

$8800 

7 

Text 

2 

0 

MDA/HGC 

80 

25 

$8000 

8-12 



-- 

.... 

... 

... 


13 

Grafik 

o 

3/4 

EGAA/GA 

320 

200 

$A000 

14 

Grafik 

16 

3/4 

EGA/VGA 

640 

200 

$A000 

15 

Grafik 

2 

3/4 

EGA/VGA 

640 

350 

$A000 

16 

Grafik 

■B 

3/4 

EGA/VGA 

640 

350 

$A000 

17 

Grafik 

2 

4 

VGA 

640 

480 

$A000 

18 

Grafik 
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16. MAUS, DIALOGE, MENÜS, 
FENSTER UND EREIGNISSE 

16.1. MAUS-BEFEHLE 


DEFMOUSE {DEFMO} 

Mausform bestimmen 

1 DEFMOUSE Form 

1 lEFMOUSE Adr% 



P DEFMOUSE ermöglicht im Grafikmodus den Einsatz verschiede- 
ner Mausformen. 

•Form‘: 


0 = 


Pfeil 

1 = 

I 

X-Klammer (Text-Cursor) 

2 = 


Biene 

3 = 


zeigende Hand 

4 = 


offene Hand 

5 = 

+ 

Fadenkreuz fein 

6 = 

+ 

Fadenkreuz grob 

7 = 

■4“ 

Fadenkreuz umrandet 


Mit der zweiten Syntaxform ist es möglich,einen eigenen Mauszeiger 
zu definieren, bzw. zu installieren. Dazu wird dem DEFMOUSE- 
Befehl in'>\dr%’die Startadresse eines 34Words (68 Bytes) langen 
Mausdefinitions-Strings übergeben. 


In diesem String sind der Reihe nach folgende Daten vorzuberei¬ 
ten: 


Word / 
Word! 

Word 3 bis 18 


Word 19 bis 34 


X-Koordinate des Aktionspunktes 
Y-Koordinate des Aktionspunktes 
16 Bitmuster-Words, die - von 
oben nach unten laufend - die 
16 Pixelzeilen des Mausmusters 
(schwarz) darstellen 
16 Bitmuster-Words, die - von 
oben nach unten laufend - die 
16 Pixelzeilen der Mausmaske 
(weiß) darstellen 
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Die Bit-Kombination von Maske und Muster (je I Bit 
übereinanderliegend gedacht) ergibt 4 verschiedene 
Verknüpfungsmöglichkeiten der Maus mit dem Hintergrund: 


Muster | Maske || Maus-Pixel 
(schwarz) | (weiß) {| wird 


0 I 0 

I I 0 

0 I I 

I I I 


transp. 

schwarz 

XOR 

weiß 


Beispiel: 

SCREEN 18 // Farb-VGA an (auch mit EGA/CGA) 

BOX 100,100,200,200 // Akcionsbox zeichnen 

mauslS=MKI$(8)+MKI$(8) // Aktionspunkt für Maus 1 

mäus2$=MKI$(0)+MKIS(0) // Aktionspunkt für Maus 2 

FOR il=0 TO 15 // 16 Zeilen 

READ binl$,bin2$ // je Bitmuster lesen 

muster$=muster$+MKI$(VAL(binl$)) // Vordergrund 
maske$=maskeS+MKl$(VAL(bin2$)) // Hintergrund 

NEXT il // nächste Zeile 

mausl$=mausl$+muster$+maske$ // Mausl: Muster dann Maske 
maus2$=maus2$+maske$+muster$ // Maus2: umgekehrt 


DEFMOUSE V:mausl$ 
PRINT ''Abbruch 
PRINT ''Zeichnen 
PRINT "Pause 
REPEAT 


// Maus 1 einschalten 
beide Maustasten'' 

1inke Maustaste'' 
rechte Maustaste'' 

// grosse Demoschleife 


IF MOUSEK=l THEN PCIRCLE MOUSEX,MOUSEY,3 // zeichnen, 
' // wenn linke Maustaste 

IF M00SEK=2 // wenn rechte Maustaste 

REPEAT // Warteschleife 

k%=MOUSEK 

UNTIL K%=0 OR Kl=3 // bis Taste gelöst oder 

ENDIF // Abbruch 

IF @mbound(100,100,200,200)// Maus innerhalb der Box? 
flag!=flag! xOR TRUE // Maus-Flag umschalten 

COLOR RAND(15)+1 // Farbe variieren 

TEXT 0,64, "Mausform : " +STRS (ABS(flag!) +1) 

PBOX 100,100,200,200 // neue Box zeichnen 

IF flag!=0 // Flag aus? 

TEXT 0,80,''Aktionspkt: zentriert (8/8)'' 
DEFMOUSE V:mausl$ // dann Maus 1 wählen 

ELSE // Flag an! 

TEXT 0,80,''Aktionspkt: linksoben (0/0)'' 
DEFMOUSE V:maus2$ // dann Maus 2 wählen 

ENDIF 

SHOWM // Maus anschalten 

PAUSE 10 // kleine Pause 


^ ft 
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ENDIF 

UNTIL M0USEK=3 // Exit, wenn beide Maustasten 

' Muster-Datas Masken-Datas 

DATA 11111111111111111, Ul 11111111111111 
DATA %1111111111111111,%1000000000000001 
DATA %1100000000000011,%1011111111111101 
DATA %1100000000000011,%1011111111111101 
DATA %1100111111110011,%1011000000001101 
DATA %1100100000010011,%1011000000001101 
DATA % 1100100000010011,%1011000000001101 
DATA %1100100000010011,%1011000000001101 
DATA %1100100000010011,%1011000000001101 
DATA %1100100000010011,%1011000000001101 
DATA %1100100000010011,% 1011000000001101 
DATA %1100111111110011,%1011000000001101 
DATA %1100000000000011,%1011111111111101 
DATA %1100000000000011,%1011111111111101 
DATA %1111111111111111,%1000000000000001 
DATA %1111111111111111,%1111111111111111 

FUNCTION mbound(xl,yo,xr,yu) 

' Diese nützliche Routine überprüft die aktuelle 
' Mausposition darauf, ob sie sich innerhalb des 
' angegebenen Eildschirmbereichs befindet. 

LOCAL X&,Y&,k4 // Lokal-Deklar. 

MOÜSE X4,Y4,k& // Mausstatus ermitteln 

IF X4 = >xl AND XSt<=xr AND Y4 = >yO AND Yi<=yu . . . 

...THEN RETURN TRUE 

RETURN FALSE // Rückgabe=0,... 

ENDFUNC // ... wenn Maus außerhalb 


HIDEM {Hl} 

Mauszeiger ausschalten 

HIDEM 



Der Mauszeiger wird ausgeschaltet, die Koordinatenermittlung 
mittels der MOUSE-Befehle funktioniert jedoch auch weiterhin. 
Bei FILESELECT-, POPUP- und ALERT-Aufrufen wird intern 
automatisch SHOWM ausgeführt. Nach der Bedienung solcher 
Dialog-Boxen muß gfls. erneut HIDEM ausgeführt werden.. 



MOUSE { MO } Maus- und Shift-Status gesamt ermitteln 

MOUSE XvarSc,Yvar&,Bvar£c [,Shiftvar&] 


p In den lnteger-Rückgabe-Variablen'Xvor<fi’und‘yvor<S’wird die 
aktuelle X-, bzw.Y-Koordinate des Mauszeigers, sowie in ‘BvartS’ 
der Status der Maustasten geliefert: 
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0 = keine Taste gedrückt 

1 = linke Taste gedrückt 

2 = rechte Taste gedrückt 

3 = linke und rechte Taste gedrückt 

Für 'Drei-Tasten-Mäuse': 

4 = mittlere Taste gedrückt 

5 = linke und mittlere Taste gedrückt 

6 = rechte und mittlere Taste gedrückt 

7 = alle drei Tasten sind gedrückt 


Im aktiven Textmodus werden für die Koordinatenberechnung die 
Cursorspalte (Standard: I - 80) und Cursorzeile (Standard: I bis 
25), in welcher sich die Maus momentan befindet, mit dem Faktor 
8 multipliziert und davon der Wert 8 abgezogen. 

Bei geöffneten GFA-Fenstern bzw. bei aktivem CLIP OFFSET 
werden in “XvoriS' und/oder “Yvardt’ auch negative Werte gelie¬ 
fert, wenn sich der Mauszeiger links und/oder oberhalb des 
Fensters bzw. des CLIP-Nullpunktes befindet. 

Zusätzlich kann durch die optionale Angabe einerweiteren Rück¬ 
gabe-Variable "5hiftvar£’ der aktuelle Status der 'Shifi'- 
Sondertasten (Umschalttasten) erfragt werden. Die Tabelle der 
möglichen Zustände finden Sie hierzu unter ON MENU KEY 
GOSUB... 


MOUSEX 

MOUSEY 

MOUSEK 


Maus-X-Koordinate ermitteln 
Maus-Y-Koordinate ermitteln 
Maustasten-Status ermitteln 


Var=MOÜSEX 

Var=MOÜSEY 

Var=MOUSEK 


-> aktuelle X-Position 
-> aktuelle Y-Position 
-> Maustasten-Status 


Dieses sind reservierte Variablen, welche den jeweils gewünschten 
Maus-Status separat enthalten.Weitere Informationen finden Sie 
unter MOUSE.... 
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SHOWM {SHOW} 

Mauszeiger anschalten 

SHOWM 



Der gfls. durch HIDEM unsichtbar gemachte Mauszeiger wird 
wieder eingeschaltet. Zum Programmende wird intern immer 
SHOWM ausgeführt. 



16.2. DIALCX:-BEFEHLE 


ALERT { AL } Hinweis-Box erzeugen 

ALERT,Icon,Bx_text$,Button,Bu_text$,Var 



DerALERT-Befehl produziert je nach SCREEN-Modus eine mittig 
plazierte Hinweisbox, die mit einem beliebigen Text und mit bis zu 
drei Auswahlknöpfen ('Klickfelder’ oder engl.; ‘buttons’) ausgestat¬ 
tet werden können. Die Programm-Ausführung wird dabei solan¬ 
ge angehalten, bis der Anwender entweder durch Maus- oder 
durch Tastaturbedienung einen der Buttons ausgewählt hat. 


Icon: 0 = kein Symbol 

1 = Ausrufungszeichen 

2 = Fragezeichen 

3 = STOP-Schild 

Bx_text$: 


Hier wird der eigentliche Text (Mitteilung/Frage) an die 
Funktion übergeben. Das Zeichen (Pipe) gilt darin als 
Trennungszeichen zwischen den einzelnen Zeilen. Die 
maximal mögliche Anzahl an Zeilen und die maximale 
Zeilenlänge ist von dem jeweils eingestellten SCREEN- 
Modus abhängig. Sollten zuviel Zeilen angegeben worden 
sein oder eine der Zeilen überschreitet die jeweils mögli¬ 
che Länge, so wird keine ALERT-Box gezeichnet. Der Text 
kann direkt in den Befehl geschrieben, oder auch als 
Stringvariable übergeben werden. 


Button: 

Es wird die Nummer (I bis x) des Buttons übergeben, 
welcher ausser durch Mausklick auch durch die <Return>- 
Taste (defauk) bestätigt werden kann. Dieser Button wird 
in der Box stark umrandet gezeichnet.‘x’ hängt auch hier 
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2S7 


von der maximal möglichen Button-Anzahl ab (0 = kein 
Default- Button) .Durch Betätigung der horizontalen Scroll- 
<Pfeiltasten> kann der Defaultbutton auch noch wahrend 
der Boxbedienung bestimmt werden. 

Bu_text$: 

Durch diesen Parameter erfolgt die Beschriftung der ein¬ 
zelnen Buttons. Die Länge des längsten Buttontextes 
bestimmt die einheitliche Breite aller Buttons. Dabei ist die 
maximale Buttontextlänge wiederum von dem aktuellen 
SCREEN-Modus und von der Anzahl der angegebenen 
Buttons abhängig.Wird die gesamte Buttondarstellung zu 
lang, wird keine ALERT-Box gezeichnet. Auch hier gilt das 
Pipe-Zeichen (“1”) als Trennstrich zwischen den einzelnen 
Buttontexten. 

Zusätzlich kann in den einzelnen Buttontexten durch einen 
Tiefstrich vor einem Buchstaben bestimmt werden, durch 
welche Taste dieser Button auch ohne Maus gewählt 
werden kann. Z.B. ' ' E_XIT ' ' bewirkt, daß der Button 
auch durch Druck auf die <X>-Taste gewählt werden 
kann. Der Unterstrich bleibt bei der Ausgabe des 
Buttontextes unberücksichtigt. Der Text kann - wie bei 
‘Boxtext $’-direkt angegeben oder in einer Stringvariablen 
übergeben werden. 

Var: 

Dies ist eine numerische Rückgabe-Variable, in welcher 
der Befehl die Nummer des vom Anwender gewählten 
Buttons (I bis x) zurückgibt 


FILESELECT {FiLESE} Datei auswählen 

FILESELECT Pfad$,Auswahl$,Backvar$ 


Dieser Befehl erstellt ein Dialog-Formular zur Dateiauswahl im 
SAA-Standard, ermöglicht eine Dateiauswahl per Maus oder/und 
Tastatur und liefert gfls. den gewählten Dateinamen (gfls. incl. 
Pfad). 


‘Pfady bezeichnet den Suchpfad zur gesuchten Datei. Durch 
Angabe des Suchpfades 'A: \R0UTINEN\* .LST' kann z.B. 
erreicht werden, daß nur aus dem Verzeichnis 'Routinen' auf 
Laufwerk‘A.’alle Dateien angezeigt werden,die die Extension‘.LST’ 
besitzen.Wird kein 'Pfad$’ übergeben (" ”), werden alle Dateien 
des aktuellen Pfades aufgelistet 


e 
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Der Parameter 'Auswahl$' gibt gfls, einen Dateinamen (max. 12 
Zeichen incl.Trennpunkt und Extension) an.der beiAufruf der Box 
in der Eintragszeile voreingestellt werden soll.‘PfodJ’ und "Aus- 
wahlS’ können auch als zusammengesetzter String-Ausdruck 
oder als Text direkt übergeben werden. 

Die Stringvariable ‘BackvarS’ enthält nach Abschluß der Datei- 
Auswahl den Namen (gfls. incl. Pfad) der gewählten Datei. Hierbei 
sind vier verschiedene Eintragsvarianten möglich: 

* — wurde vom Anwender eine Datei gewählt, steht ihr 
Name anschließend vollständig in der Rückgabe¬ 
variablen 'BackvarS’. 

-p- wurde ohne Auswahl die ‘OK-Box’ bedient, gibt es 
zwei Varianten: 

■ es wurde durch den Parameter ‘Auswahr ein 

Dateiname in der Eintragszeile voreingestellt, 
der noch in der Eintragszeile steht und die 
’Ok-Box’ wurde bedient. Dann steht dieser 
Name auch anschließend in ‘Backvar$‘. 

- es wurde keine Auswahl getroffen und auch 

kein Name übergeben, bzw. die Eintragszeile 
wurde vom Anwender gelöscht und die ‘OK- 
Box’ wurde bedient dann wird in ‘BackvarS’ 
ein sog.‘Backslash’ (\) geliefert. Wird ‘Abbruch’ 
-angeklickt ist ‘BackvarS’ absolut leer. 

Die Boxbedienung per Maus ist relativ einfach und logisch, sodaß 
ich mir hier weitere Erläuterungen erspare. BeiTastaturbedienung 
kann per <Tab>-Taste durch die verschiedenen Eintrags- und 
Auswahlfelder ‘gesprungen’ werden. Innerhalb des Dateiauswahl- 
Fensters können die jeweiligen Einträge durch die vertikalen 
Scroll-<Pfeiltasten> ausgewählt und anschließend durch <Return> 
in die Eintragszeile übertragen werden. 


POPUPQ Pop-Up-Menü erzeugen 

Auswahl=POPUP(Menütext$, )4»s,Ypos,Modus) 

I ~POPUP(Menütext$,)^s,Ypos,Modus) 

POPUP wird sicher auch einer Ihrer Lieblingsbefehle. Er hört sich 
an wie ‘POPEYE’ und ist auch ebenso vielseitig. Man kann damit ein 
(fast) beliebig großes Pop-Up-Menü produzieren und an einer 
beliebigen Bildschirmposition darstellen. Der Programmablauf 
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wird für die Zeit der Menü-Bedienung unterbrochen und man 
kann anhand der Cursor-<Pfeiltasten>, der Maus und/oder der 
<Return>-TästedieAuswahl vornehmen. Ein Mausklick außerhalb 
des Menüs gilt als 'Abbruch'. 

In VMenütextJ’werden - durch ein 'Pipe '-Zeichen (|) getrennt- die 
einzelnen Menüzeilen-Einträge (mind. 3) angegeben. Der 
Menüzeilen-Text vor dem ersten ‘Pipe’ wird als unwahlbarer 
Menütitel invertiert dargestellt, während alle anderen Einträge 
normal dargestellt werden und wählbar sind. Soll kein Menütitel 
gezeichnet werden, so steht gleich zu Beginn in ‘/\1enütext5' ein 
'Pipe’-Zeichen (|), der Menütitel-Text wird also weggelassen. Da¬ 
durch wird erreicht, daß schon die erste dargestellte Menüzeile 
wählbar ist (wichtig für den Pulldown-Modus: 'Modus’=3). 

Wie auch bei ALERT ist die maximale Anzahl und Länge vom 
aktuellen SCREEN-Modus abhängig. Sollten zuviel Zeilen angege¬ 
ben worden sein oder eine der Menüzeilen ist zu lang, so wird das 
Menü nicht gezeichnet und der Wert -1 (TRUE) zurückgegeben. 
Ebenfalls wie bei ALERT kann jedem Menü-Eintrag ein sog. 
'Hotkey' zugewiesen werden,indem dem betreffenden Zeichen ein 
Tiefstrichs vorangestellt wird.Durch Druckaufdie entsprechende 
<Taste> kann der jeweilige Eintrag auch ohne Zuhilfenahme einer 
Maus angewählt werden. 

Das Koordinatenpaar "Xpos" und "Ypos’ gibt entweder die linke, 
obere Ecke ("Modus'=0) oderdie Mitte des Menüs an ('Modus’= I ). 
Bei ‘Modus’=2 und ^Modus’=3 werden die evtl, in "Xpos’ und 
‘Ypos‘ übergebenen Werte ignoriert. 

'Modus’ entscheidet über die Arbeitsweise des Menüs: 

0 = Die in 'Xpos’l’Ypos’ angegebenen Koordinaten 

werden als linke, obere Ecke des Menüs gewertet. 

1 = Die in “Xpos’l’Ypos’ angegebenen Koordinaten 

werden als Mitte des Menüs gewertet. 

2 = Die in “Xpos'/'ypos’ angegebenen Koordinaten 

werden gamicht gewertet. Das Menü wird in der 
Bildschirmmitte zentriert ausgegeben. 

3 = Pulldown-Modus. Die in 'Xpos’l’Ypos’ angegebenen 

Koordinaten werden als linke,obere Ecke des Menüs 
gewertet Anders als bei 'Modus’=0 kann hier das 
Menü auch durch die horizontalen Scroll-<Pfeiltasten> 
nach links und rechts verlassen werden. Dabei wird 
als Rückgabewert 

-3 = <Pfeiltaste-links>) 

-4 = <Pfeiltaste-rechts> 

geliefert. 


HotSpot 



260 


Mous, Dialoge, Menüs, Fenster und Ereignisse 


Außerdem wird bei einem Klick der linken Maustaste 
ausserhalb des Menüs der Wert -2 als Kennung 
geliefert. Soll das Menü ohne Titelzeile dargestellt 
werden, muß ‘MenütextS’ einem ‘Pipe'-Zeichen 
beginnen. 

In der Rückgabe-Variable ‘Auswahl’ wird bei getätigter Auswahl 
die Nummer des gewählten Eintrags - beginnend mit I für den 
ersten wählbaren Eintrag - geliefert. 

Die zweite Syntax-Variante zeigt die Möglichkeit, anstatt eines 
Rückgabewertes einen Eintrag in den MENUO-Ereignispuffer zu 
erzwingen.DurchGETEVENT.PEEKEVENToderONMENU 
(s. dort) wird der Puffer aktualisiert und es kann anschließend 
festgestellt werden, ob ein Eintrag eines POPUP-Menüs gewählt 
wurde. MENU( I) liefert dann den Wert 20. In MENU(O) steht 
gfls. anschließend - wie sonst in der Rückgabevariable ‘Auswahl’ 
- die Nummer des gewählten Eintrags. 


DRAGBOX Schiebebox produzieren 

DRAGBOX Sx,Sy,Br,Ho [,Mx,My,Mb,Mh] ,Ex&,EV& 

Erzeugt im Grafikmodus eine Schiebebox, die in der vorgegebenen 
Größe - ‘Br’ für Breite, ‘Ho’ für Höhe, beginnend mit der linken, 
oberen Boxecke bei der Startkoordinate ‘Sx’l’Sy’ - mittels Maus 
beliebig auf dem Bildschirm verschoben werden kann. Innerhalb 
von Fenstern wird die Boxdarstellung allerdings an den Rändern 
der Arbeitsfläche ge’clipt’. 

Der Befehl ist nur bei gedrückter linker Maustaste aufrufbar. 
Solange die Maustaste gedrückt ist, folgt das Rechteck dem 
Mauszeiger.Wird die Taste losgelassen, verschwindet die Box und 
in den Integer-Rückgabe-Variablen ‘Exd’ und '£y<ß' stehen die 
Koordinaten der linken, oberen Ecke der Schiebebox zum Zeit¬ 
punkt des Loslassens. 

Werden die optionalen Parameter ‘AAx’, ‘My’, ‘Mb’ und ‘Mh’ 
eingesetzt, so beschreiben sie in ‘Mx’l’My’ die linke, obere Ecke 
und m’Mb’l’Mh’die Breite und Höhe eines Begrenzungsrechtecks. 
Die bewegliche Box läßt sich dann nicht mehr über die vorgege¬ 
benen Grenzen dieses unsichtbaren Rahmens hinausbewegen. 
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RUBBERBOX Gummiband-Box (Lasso) produzieren 

RUBBERBOX Sx,Sy,Mb,Mh,Ex&, EV& 



Dieser Befehl erzeugt im Grafikmodus einen sog. 'Lasso-Effekt'. 
D.h.,es wird in ‘ExTEy’ die Position der linken oberen Ecke eines 
Rechtecks, sowie in 7Mb'und Wh’die kleinstmögliche Breite und 
Höhe des Lasso-Rechtecks angegeben. Die rechte, untere Ecke 
des Lassos folgt nun bei gedrückt gehaltener linker Maustaste den 
Mausbewegungen, während die linke, obere Ecke an der definier¬ 
ten Position stehenbleibtWird die linke Maustaste losgelassen,gilt 
der Befehl damit als beendet. 


Daraus folgt, daß RUBBERBOX nur bei gedrückt gehaltener linker 
Maustaste aufgerufen werden kann Als Rückgabeparameter erhält 
man in den beiden Integer-Rückgabe-Variablen ‘Ex’ und nach 

Abschluß die Breite und Höhe des Lasso-Rechtecks zum Zeit¬ 
punkt des Loslassens der Maustaste. 

Werden in Wb'und Wh'negative Werte angegeben, kann die Box 
auch nach links und oben 'gezogen' werden. 


16.3. EREIGNIS - ÜBEF^ACHUNG 


GETEVENT { GETE } wartende Event-Kontrolle ohne Verzwg. 

GETEVEOT 


GETEVENT ist im Wesentlichen identisch mit PEEKEVENT. 
GETEVENT wartet jedoch im Gegensatz zu PEEKEVENT ca. 
eine halbe Sekunde auf den Eintritt eines Ereignisses. Beide Befehle 
haben prinzipiell die gleiche Wirkung wie ON MENU (s. dort). Es 
wird allerdings nicht zu den bei ON MENU KEY/BUTTON/ 
MESSAGE GOSUB... angegebenen Auswertungsprozeduren 
verzweigt, sondern es bleibt dem Programmierer überlassen, wie 
er auf ein eventuell eingetretenes Ereignis reagiert. Der MENUQ- 
Ereignispuffer wird jedoch trotzdem vollständig aktualisiert und 
kann genauso ausgewertet werden, wie es bei ON MENU in einer 
Auswertungsprozedur erfolgen würde. Ist zum Zeitpunkt des 
GETEVENTAufrufs bzw. innerhalb der folgenden halben Sekunde 
ein Ereignis eingetreten, so finden Sie in MENU(I) die entspre¬ 
chende Ereignis-Kennziffer (ungleich Null). 


ft 
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KILLEVENT 

MENUO-Ereignispuffer löschen 

■ KILLEVENT 



P In manchen Fällen ist es denkbar, daß eintretende Ereignisse im 
^ Voraus feststehen und der Eintrag im MENUO-Ereignispuffer 
daher überflüssig wird (z.B. beim Aufbau der Rechtecklisten 
während der erstmaligen Installation eines Fensters). In diesen 
Fällen oder evtl, vor einem GETEVENT-Aufruf zurlouersteHung’ 
kann durch KILLEVENT der MENUO-Ereignispuffer vollständig 
gelöscht werden. 


ON MENU Event-Kontrolle mit Verzweigung 

ON MENU 


Die'ON MENU’-Ereignisfeststellung sollte an häufig wieder-keh- 
renden Programmstellen (innerhalb von Schleifen.möglichstin der 
Hauptschleife in möglichst schneller Folge) geschehen, da der 
MENUQ-Ereignispuffer permanent erneuert werden muß, um 
gfls. schnellstmöglich auf ein eingetretenes Ereignis reagieren zu 
können. Geschieht dies nämlich nicht unverzüglich und der Puffer 
wird nicht ausgelesen, können neuere Ereignisse die Puffer-Einträ¬ 
ge überschreiben und somit ein falsches Ergebnis liefern, bzw. das 
betreffende Ereignis wird dann möglicherweise schlicht und ein¬ 
fach 'übersehen'. 

Wird der Befehl nicht eingesetzt, kann auch nicht zu den gfls. bei 
den ON MENU...GOSUB-Befehlen angegebenen Prozeduren 
verzweigt werden. 

Beachten Sie dazu bitte das ausführliche'BEISPIEL - PROGRAMM’ 
im ANHANG. 


Dies ist die zentrale Multi-Event-Funktion des GFA-BASIC.Sie stellt 
fest,ob eines der vielfachen Multi-Ereignisse (Maus- oderTastatur- 
Klicks, Menü- oder/und Fenster-Ereignisse usw.) eingetreten ist, 
aktualisiert entsprechend die Einträge im MENUQ-Ereignispuffer 
(s. dort) und verzweigt gfls. entsprechend zu den - vorher durch 
die ON MENU...GOSUB-Befehie angegebenen - Verwaltungs¬ 
prozeduren. 
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PEEKEVENT { PEEKE } Event-Kontrolle ohne Verzweigung 

PEEKEVEOT 



PEEKEVENT ist im Wesentlichen identisch mit GETEVENT (s. 
Erläuterungen auch dort). PEEKEVENT wartet im Gegensatz zu 
GETEVENT nicht auf den Eintritt eines Ereignisses. Beide Befeh¬ 
le haben prinzipiell die gleiche Wirkung wie ON MENU (weitere 
Erläuterungen siehe dort). 


16.4. EREIGNIS-VEFWALTUNG 


MENUQ 

allgemeiner Ereignispuffer 

Var=MENü(Index) 



p Hinter dieser Funktion verbirgt sich ein Integer-Vektor.in welchen 
^ durch ON MENU. PEEKEVENT oder GETEVENT der 
permanente Eintrag verschiedener Daten zu den aktuellen GFA- 
Multi-Ereignissen erzwungen werden kann. 

‘Index’ steht hier jeweils für das Puffer-Element, das ausgelesen 
werden soll. Das wichtigste Puffer-Element ist MENU(l),da hier 
die Kennziffer des jeweils eingetretenen Ereignisses zu finden ist. 
Abhängig davon stehen dann in anderen Puffer-Elementen weitere 
Auskünfte zu dem Ereignis (hier durch ' ->' markiert). 


MENU(I): 

1 Ereignis 

4 - . 


1 

1 Tastatur-Ereignis 



1 -> MENU(5) 

1 

1 

- 4 > 

1 16Bit-Tastaturcode 

1 (s. ANHANG 

1 ‘PC-TASTATUR’) 

• 4 . 

2 

1 Mausklick außerhalb des aktiven Fensters 


1 -> MENU(7) 

1 

1 

1 

1 

+ . 

1 gfls. Nummer des Fensters, 

1 auf welchem sich die Maus 

1 zum Klickzeitpunkt befunden 

1 hat. War kein Fenster darunter, 
j wird eine Null gelieferL 


3 I Mausklick innerhalb des aktiven Fensters 

. + . 
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Der Schließbunon 'Qoser' des Fensters links 
oben wurde gewählt. 

Der Größen-Minimierungsbutton Minimizer' 
{Abwärtspfeil) rechts oben wurde gewählt 

Der Größen-Maximierungsbutton 'Maximizer' 
(Aufwärtspfeil) rechts oben wurde gewählt 

Der Aufwärts-Zeilen-Scrollpfeil rechts über 
dem vertikalen Schieberegler wurde gewählt 

Der Abwärts-Zeilen-Scrollpfeil rechts unter 
dem vertikalen Schieberegler wurde gewählt 

Der Spalten-Scrollpfeil links neben dem 
horizontalen Schieberegler wurde gewählt 

Der Spalten-Scrollpfeil rechts neben dem 
horizontalen Schieberegler wurde gewählt 

Das ‘PogeUp’-Feld des vertikalen Scroll- 
Balkens oberhalb des Schiebereglers wurde 
gewählt 

Das 'PageDown'-Feld des vertikalen Scroll- 
Balkens unterhalb des Schiebereglers wurde 
gewählt 

Das 'PogeLe/t’-Feld des horizontalen Scroll- 
Balkens links vom Schieberegler wurde gewählt 

Das 'PogeRight’-Feld des horizontalen Scroll- 
Balkens rechts vom Schieberegler wurde gewählt 

Der 'UpDown’-Schieberegler im vertikalen 
Scroll-Balken wurde bewegt 


-> MENU(7) I neue Position im Scrollbalken 
1 von 0 (oben) bis 1000 (unten) 
•.+. 

Der 'LeftRight’-Schieberegler im horizontalen 
Scroll-Balken wurde bewegt 


-> MENU(7) I neue Position im Scrollbalken 
1 von 0 (links) bis 1000 (rechts) 
-.- +. 

Der Titelbalken 'Mover' am oberen Rand des 
aktiven Fensters wurde gewählt. 
.+. 
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MENU(2) 

MENU(3) 

MENU(4) 

MENU(6) 


absolute Maus-X-Koordinate zum Zeitpunkt 
des Ereignisses 

absolute Maus-Y-Koordinate zum Zeitpunkt 
des Ereignisses 

Mausknopfstatus zum Zeitpunkt des Ereignis¬ 
ses (s. MOUSEK) 

Umschalttasten-Status zum Zeitpunkt des 
Ereignisses (s. ON MENU KEY GOSUB...) 


Die Puffer-Elemente MENU(2) und MENU(3) enthalten bei allen 
Ereignissen die absoluten Mauskoordinaten, MENU(4) den 
Mausknopf-Status und MENU(6) den Status der Umschalttasten 
zum Zeitpunkt des Ereignisses. 

Beachten Sie dazu bitte das ausführliche‘BEISPIEL - PROGRAMM’ 
im ANHANG. 


ON MENU GOSUB Proc.-Bestimmung (Menü-Event) 

CN MENÜ GOSUB Prozedumame 

■ 'Prozedurname’ gibt eine PROCEDURE an, zu welcher ver- 
^ zweigt werden soll, wenn zum Zeitpunkt des ON MENU-Befehls 
(s. dort) ein Pulldown-Menüpunkt (Menüeintrag) angeklickt wur¬ 
de. Über MENU(O) oder über MENU(7) und MENU(8) kann 
dann dort der gewählte Menüpunkt ermittelt und dementsprechend 
reagiert werden (s. MENUQ-Ereignispuffer). 

Außer dieserVerzweigung hat ON MENU GOSUB keine Funktion. 
Der Befehlsteil GOSUB kann weggelassen werden, er wird vom 
Interpreter automatisch ergänzt Wird ein nicht existierender 
‘Prozedurname’angegeben, kann dadurch erreicht werden, daß 
die z.Zt. aktive Menü-Uberwachung abgeschaltet wird. 

Beachten Sie dazu bitte das ausführliche'BEISPIEL - PROGRAMM’ 
im ANHANG. 


ON MENU BUnON GOSUB Proc -Bestimmung 

(Mausknopf-Event) 

CN MENU BUTTON GOSUB Prozedumame 

Anhand der Ereignis-Überwachung durch ON MENU (s. dort) 
kann festgestellt werden, ob eine Maustaste gedrückt wurde. Das 
Programm verzweigt in diesem Fall zu der durch ‘Prozedurname’ 
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angegebenen PROCEDURE. Jedoch nur dann, wenn aktuell 
weder ein Pulldown-Menü noch Fenster-Randelemente bedient 
werden. In ‘Prozedurname* können dann durch den Eintrag in 
MENU(I) zwei mögliche Ereignisse ermittelt werden: 

MENU(I) = 2 ein Mausklick außerhalb des aktiven Fen¬ 
sters hat stattgefunden, bzw. ein Mausklick hat 
stattgefunden und es sind keine Fenster geöff¬ 
net Der Mausklick galt dabei nicht der Bedie¬ 
nung des Pulldown-Menüs. Die Nummer eines 
evtl, angeklickten Fensters kann gfls. aus 
MENU(7) ausgelesen werden. 

MENU(I) = 3 ein Mausklick innerhalb des aktiven Fensters 
hat stattgefunden. Der Mausklick galt dabei 
nicht der Bedienung Fenster-Randelemente des 
aktiven Fensters (s. dazu ON MENU 
MESSAGE GOSUB...) 

Beachten Sie die weiteren Erläuterungen zum MENUQ- 
Ereignispuffer. 

Außer dieser Verzweigung hat ON MENU BUTTON GOSUB 
keine Funktion. Der Befehlsteil GOSUB kann weggelassen wer¬ 
den, er wird vom Interpreter automatisch ergänzt.Wird ein nicht 
existierender‘Prozedurnome'angegeben,kann dadurch erreicht 
werden, daß die z.Zt aktive Maus-Überwachung abgeschaltet 
wird. 

Beachten Sie dazu bitte das ausführliche'BEISPIEL- PROGRAMM' 
im ANHANG. 


ON MENU KEY GOSUB Proc.-Bestimmung (Tastatur-Event) 


ON MENU KEY GOSUB Prozedumame 



Die Tastatur wird durch ON MENU (s.dort) überwacht und gfls. 
bei einem Tastatur-Ereignis zu der in 'Prozedurnome'genannten 
PROCEDURE verzweigt MENU(I) liefert dann den Event- 
Index I (s. MENUQ-Ereignispuffer). Durch 


BYTE(MENÜ(5)) 


kann zur gleichen Zeit der ASCII-Code und durch 

SHR(MENÜ(5),8) 

der Scan-Code der gedrückten Taste ermittelt werden (s. dazu 
ANHANG ‘PC-TASTATUR’). 
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MENU(6) liefert dagegen den aktuellen Zustand der 


Umschalttasten: 


BitO 

(1) = 

rechte <Shift>-Taste gedrückt 

BitI 

(2) = 

linke <Shift>-Taste gedrückt 

Bit2 

(4) = 

rechte <Strg>-Taste gedrückt 

Bit3 

(8) = 

rechte <Alt Gr>-Taste gedrückt 

Bit4 

(16 = 

'ScrollLock' ist aktiv 

Bits 

(32) = 

'NumLock' ist aktiv 

Bit6 

(64) = 

‘CapsLock’ ist aktiv 

Bit7 

(128) = 

'Bnfug’-Modus ist aktiv 

Bit8+Bit4 (260) = 

linke oder beide <Strg>-Tasten 

Bit9+Bit3 (520) = 

linke oder beide <Alt>-Taste 

Bit 12 

(4096) = 

<ScrollLock> wird bei aktivem 



‘ScrollLock’ gedrückt gehalten 

Bitl2+Bit4(4ll2) = 

<ScrollLock> wird vor aktivem 



‘ScrollLock’ gedrückt gehalten 

BitI 3 

(8192 = 

<NumLock> wird bei aktivem 



‘NumLock’ gedrückt gehalten 

BitI 3+Bit5 (8224) = 

<NumLock> wird vor aktivem 



‘NumLock’ gedrückt gehalten 

Bitl4+Bit6(l6448)= 

<CapsLock> wird gedrückt gehalten 

Bit 15 

(32768)= 

<Einfg> wird bei aktivem 



‘BnfiJg’-Modus gedrückt 

Bitl5+Bit7(32896) = 

<Einfg> wird vor aktivem 



‘BnfiJg’-Modus gedrückt 


Die verschiedenen Kombinationen der angegebenen Möglichkei¬ 
ten liefern Werte, die sich aus der Addition der einzelnen <Ta- 
sten>-Drücke ergeben (z.B. 67 = I + 2 + 64 = ‘CapsLock’ ist aktiv 
und gleichzeitig werden beide <Shift>-Tasten gedrückt gehalten). 

Außer dieser Verzweigung hat ON MENU KEY GOSUB keine 
Funktion. Der Befehlsteil GOSUB kann weggelassen werden, er 
wird vom Interpreter automatisch ergänzt.Wird ein nicht existie¬ 
render 'Prozedurname’ angegeben, kann dadurch erreicht wer¬ 
den, daß die z.Zt. aktive Tastatur-Überwachung abgeschaltet wird. 

Beachten Sie dazu bitte das ausführliche'BEISPIEL - PROGRAMM’ 
im ANHANG. 


ON MENU MESSAGE GOSUB Proc.-Bestimmung 

(Fenster-Event) 

ON MENU MESSAGE GOSUB Prozedumame 


Der ON MENU-Befehl überwacht die möglichen Fenster-Ereig¬ 
nisse und verzweigt gfls. zu der durch ON MENU MESSAGE 
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GOSUB 'Prozedurname’ angegebenen PROCEDURE. Über 
den MENUO-£re/gn/spuffer kann dann dem jeweiligen Fenster- 
Ereignis entsprechend reagiert werden (s. Ereignistabelle bei 

MENUO) 

Außer dieser Verzweigung hat ON MENU MESSAGE GOSUB 
keine Funktion. Der Befehlsteil GOSUB kann weggelassen wer¬ 
den, er wird vom Interpreter automatisch ergänzt.Wird ein nicht 
existierender‘Prozedurno/ne'angegeben,kann dadurch erreicht 
werden, daß die z.Zt. aktive Fenster-Überwachung abgeschaltet 
wird. 

Die Reaktionsmöglichkeiten undVerfahrensweisen bei derVerwal- 
tung der vielfältigen Fenster-Ereignisse sind im ‘BEISPIEL-PRO¬ 
GRAMM’ im ANHANG ausführlich beschrieben. 


1 6S. MENÜ - PROGRAMMIERUNG 


MENU Menütext$0 

Pulldown-Menü erstellen 

MENU Menütext$() 




Dieser Befehl erstellt im Grafik-Modus ein Pulldown-Menu und 
aktiviert es anschließend. 


‘FeldSQ’ ist dabei ein eindimensionales Textfeld, in welchem die 
Menütitel und Menüpunkt-Einträge der gesamten Menüleiste auf¬ 
einanderfolgend eingetragen werden. Zwischen den einzelnen 
Menüs gelten Leerstrings als Trennmarkierung. Der Aufbau eines 
solchen Feldes sieht folgendermaßen aus (bei OPTION BASE 0): 


Feld$(0) 

Feld$(l) 

Feld$(2) 


Feld$(n) 


Titel zu Menü I (links beginnend) 
erster Menüpunkt-Eintrag zu Menü I 
zweiter Menüpunkt-Eintrag zu Menü I 
beliebige Eintragsanzahl für Menü I 
''" <= Schlußmarke für Menü I 


Feld$(n+I) = 
Feld$(n+2) = 
Feld$(n+3) = 


Feld$(n+n) = 


Titel zu Menü 2 (zweites von links) 
erster Menüpunkt-Eintrag zu Menü 2 
zweiter Menüpunkt-Eintrag zu Menü 2 
beliebige Eintragsanzahl für Menü 2 
“" <= Schlußmarke für Menü 2 


beliebige Menü-Anzahl für Menüleiste 


Feld$(nn+I)= 


Titel zum letzten Menü (rechts endend) 
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Feld$(nn+2)= erster Menüpunkt-Eintrag zu Menü ‘nn’ 
Feld$(nn+3)= zweiter Menüpunkt-Eintrag zu Menü ‘nn’ 

. beliebige Eintragsanzahl für Menü ‘nn’ 

Feld$(nn+n)= "" <= Schlußmarke für Menü ‘nn’ 

Feld$(nn+n+1 )= " “ <=Schlußnruirke für gesamtes Menü 

Den Abschluß für das gesamte Text-’Fe/dJO’ bildet - wie zwischen 
den einzelnen Menüs - ein weiterer Leerstring (hier: 
Feld$ (nn+n+1) =“"). 

Z.B.: 


DIM Menutxt$(16) // DIM Menütextfeld 


ON MENU GOSOB Auswertung // MENU-Event abfangen 


REPEAT 

// 

Lese-Schleife 

READ Menutxt$(I%) 

// 

Eintrag lesen 

EXIT IF Menutxt$(It)= 

:"XXX"//EXIT bei DATA-Ende 

Ii+ + 

// 

Index-Increment 

LOOP 



Menutxt$(Ii)=''" 

// 

Menü-Endmarke 

DATA MENÜl, Punkt_l, 

Punkt_2, 

Punkt_3,”• 

DATA MEN02, Punkt_4, 

Punkt_5, 

Punkt_6, 

DATA MENÜ3, Pur.kt_7, 

Punkt_8, 

Punkt_9,”” 

DATA XXX 
$ 



MENU Menutxt$() 

// 

Menü installieren 

DO 

// 

Main-Loop 

ON MENU 

// 

Event-Abfrage 

LOOP 



PROCEDURE Auswertung 

// 

Auswertungsrout ine 

IF MENU(1)=20 

// 

Menü-Ereignis? 

IF Menutxt$(MENU(0) 

)=“ Punkt_l" 

... Bearbeitung, 

falls ' 

Punkt_l' gewählt 


ELSE IF Menutxt$(MENU(0))=" Punkt_2” 


... Bearbeitung, falls ' Punkt_2' gewählt 

ELSE IF Menutxt$(MENU(0))=“ Punkt_x" 

... weitere Menü-Auswertung 

ENDIF 

ENDIF 

RETURN 

Zur Feststellung, ob ein Menü-Ereignis stattgefunden hat, kann - 
wie hier in Zeile I der Auswertungsroutine - der Eventpuffer- 
Eintrag MENU(I ) abgefragt werden. Ein Menü-Ereignis hinterläßt 
in MENU(I) den Wert 20. Wird bei ON MENU GOSUB eine 
spezielle Auswertungsroutine nur für die Behandlung von Menü- 
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Ereignissen angegeben, so ist diese Abfrage in der 
Auswertungsprozedur nicht nötig,da diese spezielle Routine dann 
nur angesprungen wird, wenn tatsächlich ein MENU-Event 
aufgetreten ist 

Nach einem‘MENU( I )=20’-Ereignis wird in MENU(O) ein Wert 
geliefert der dem Feld-Index des gewählten Menüpunktes im 
Menütextfeld (hier: 'Menütxt$ ()) entsprichtZur gleichen Zeit 
liegen in MENU(7) der Index des geöffneten Pulldown-Menüs (/ 
bis ’n') und in MENU(8) der Index des gewählten Menüpunktes 
dieses Menüs (f bis‘n’). Ein Wert von 3 in MENU(7) und ein Wert 
von 6 in MENU(8) würde also bedeuten, daß aus dem dritten 
Pulldown-Menü (von links) der sechste Menüpunkt (von oben) 
gewählt wurde. 

Ebenso wie bei ALERT und POPUP kann auch in einem MENU 
zu jedem einzelnen Eintrag einTastatur-Kürzel (‘Hotkey) bestimmt 
werden, indem vor dem entsprechenden Zeichen im Menüpunkt- 
Eintrag einTiefstrich plaziert wird.Wird dagegen einem Menüpunkt- 
Eintrag ein Bindestrich vorangestellt, wird dieser im entsprechen¬ 
den Pulldown-Menü als nicht aktiv (helle Schrift) dargestellt. Er ist 
zwar immer noch wählbar, aber seine Auswahl kann dann z.B. als 
'nicht getätigt’ ignoriert werden. 

Steht keine Maus zurVerfügung,kann das Menü jederzeit durch die 
Funktionstaste <F I > aufgerufen und anschließend der gewünsch¬ 
te Menüpunkt durch die vier Scroll-<Pfeiltasten> aktiviert werden. 
Ist der Menüpunkt aktiviert (invertiert), kann er durch <Return> 
ebenso gewählt werden, als wenn er mit der Maus angeklickt 
worden wäre. 

Noch drei Tips: 

- In der Beispiel-Prozedur ‘Auswertung’ wird nach den 
Texten der einzelnen Menüpunkte gefragt (IF 
Menutxt$ (MENU (0) = "Menüpunkt-Text '). Hierbei 
muß zwar streng daraufgeachtet werden, daß in der Abfrage 
auch dieselben (!) Texte wie in den Menütxt$()-Einträgen 
verwendet werden, aber diese Lösung ist zu empfehlen, da so 
sichergestellt wird, daß auch dann noch korrekt verzweigt 
wird, wenn sich die Reihenfolge oder der Index der Text- 
Einträge ändern sollte. 

- Im obigen Beispiel wurde zudem vor den jeweiligen 
Menüpunkt-Bnträgen zwei Leerzeichen Platz gelassen. Der 
Sinn liegt darin, daß man - falls Bedarf besteht - vor einem 
Menüpunkt, der schon aktiviert ist, ein ‘Checkmark’ (z.B. 

MID$ (Menütxt$ (3) ,1,1)= CHR$ (16)) setzen kann, 
ohne daß dadurch die ‘Flucht’der Einträge verunstaltet wird. 
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- Außerdem ist es möglich, den Text eines Menüpunktes 
während des Programmlauß zu ändern. Heißt z.B. ein 
Menüpunkt zur Einstellung von Textattributen ‘Fettschrift' 
und dieser Punkt wird angewählt, um dasTextattribut ‘fett’zu 
aktivieren, kann man daraufhin den Eintragstext im entspre¬ 
chenden Element des Menütextfeldes z.B.auf‘Normalschrift' 
ändern (z.B.vorher: Feld$ (x) = " Fett Schrift ^dann: 
Feld$ (x) = "Normalschrift") und das geänderte Menü 
erneut durch den Befehl ‘MENU Feld$Q’ installieren. 


MENU KILL 

Pulldown-Menü deaktivieren 

MENU KILL 




Nach MENU KILL ist das Pulldown-Menü deaktiviert und die 
aktuelle ON MENU GOSUB... -Anweisung wird nicht mehr 
berücksichtigt Der Menüleisten-Text wird allerdings dabei nicht 
vom Bildschirm gelöscht 


16.6. FENSTER - PROGRAMMIERUNG 


Wichtig: 

In diesem Kapitel finden Sie keineVerweise aufDemo-Ustings. 
Beachten Sie deshalb bitte zu den Fenster-, MENU- und ON 
MENU-Befehlen das ausführliche ‘BEISPIEL - PROGRAMM’ 
Im ANHANG. 
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In deutsch; 



' Mover/Titel' 

= 

Bewegungs- und Titelfeld 

'Info' 

= 

Informationszeile 

'Qoser' 

= 

Schließfeld 

'ScrolNeft' 

= 

Unks-Rollfeld 

'Page-Ieft' 

= 

Links-Seiten-Blätterfeld 

'horiz. Slider' 

= 

horizontaler Schiebebalken 

'Page-right' 

= 

Rechts-Seiten-Blätterfeld 

'Minimizer' 

= 

Fenster-Minimierungsfeld 

'Maximizer' 

= 

Fenster-Maximierungsfeld 

'ScrolFup' 

= 

Aufwärts-Rollfeld 

'Page-Up' 

= 

Aufwärts-Seiten-Blätterfeld 

'vert Slider' 

= 

vertikaler Schiebebalken 

Page-down' 

= 

Abwärts-Seiten-Blätterfeld 

'Scroll-down' 

= 

Abwärts-Rollfeld 

'Sizer' 

= 

Größen-Veränderungsfeld 

'Workbench' 


Fenster-Arbeitsbereich 

CLEARW# 


Fenster-Inhalt löschen 

CLEARW [#]Nuntner 





'Nummer' bestimmt im Grafikmodus die Nummer des GFA- 
Fensters (0 bis 4), dessen Inhalt gelöscht werden soll. Ist kein 
Fenster mit der angegebenen 'Nummer' geöffnet, bleibt der 
Befehl ohne Wirkung. 


Im aktuellen Fenster ist ein Löschen des Inhalts auch durch CLS 
möglich. 

CLIP# {cLi} Ausgabe auf Fensterbereich begrenzen 

CLIP fNunmer 



Bewirkt eine Beschränkung von Grafikausgaben auf den 
Arbeitsbereich des durch OPENW# geöffneten GFA-Fensters 
mit der angegebenen 'Nummer' (0 bis 4). Die Position und 
Ausmaße der Arbeitsfläche dieses Fensters werden dann als Qip- 
Rechteck installiert,sodaß Grafikausgaben außerhalb dieses Recht¬ 
ecks unterdrückt werden. CLIP#0 wirkt wie CLIP OFF .Sollen 
Grafikausgaben auf das Hintergrundfenster #0 beschränkt wer¬ 
den, ohne daß die Menüleiste überschrieben werden kann, muß 
gfls. erst CLIP OFF und dann 


CLIP 0,Leistenhöhe,Screenbreite,Screenhöhe-Leiscenhöhe 


eingesetzt werden. 
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CLOSEW#{clw} 

Fenster schließen 

; CLOSEW [tlNuimer 



‘Nummer’ bestimmt im Grafikmodus die Nummer des zu schlie- 
ßenden GFA-Fensters (0 bis 4). Ist kein Fenster mit der angegebe¬ 
nen ‘Nummer* geöffnet, bleibt der Befehl ohne Wirkung. 


FULLW {FUL} Fenster auf Bildschirmgröße maximieren 

FULLW [#]NunTner 



‘Nummer" bestimmt die Nummer des GFA-Fensters (I - 4), 
welches bis an die - gfls. vorhandene - Menüzeilen-Aussparungam 
oberen Rand vergrößert werden soll. Ist kein Fenster mit der 
angegebenen‘Nummer’geöffnet.bleibt der Befehl ohne Wirkung. 


GETFIRST # {GETF} Rechteckliste initialisieren 

GETFIRST [#]Nuiimer,)$)&,Yp&,Br&,Ho& 


Bei den meisten Fensteroperationen (Löschen, Verschieben, 
Größenänderung etc.) ergibt es sich, daß verschiedene Rechteck- 
Bereiche innerhalb von Fenstern oder im umgebenden Bildschirm 
neu gezeichnet werden müssen. Für diesen Vorgang wird im 
allgemeinen der englische Ausdruck 'Redraw’ (Neuzeichnung) 
verwendet. In GFA-BASIC wird bei den entsprechenden 
Fensteroperationen - falls ON MENU, GETEVENT oder 
PEEKEVENT eingesetzt wurde - in MENU(I) ein ‘Redraw’- 
Ereignis mit der Kennziffer! I gemeldet(s.MENUO-£re/gms/)uffer). 

Die Feststellung, welche Bereiche von diesem Ereignis betroffen 
sind, ist relativ kompliziert und würde 'per Hand' (mittels 
RC_INTERSECT()) doch einen erheblichen 
Programmieraufwand bedeuten. GFA-BASIC bietet daher den 
GETFIRST-Befehl an, der für alle durch OPENW geöffneten 
Fenster eine sog. 'Rechteckliste' generiert In dieser Rechteckliste 
sind alle sichtbaren - also nicht durch andere Fenster verdeckten 
- Rechteck-Bereiche des betreffenden Fensters durch die 
Koordinaten der linken oberen Ecke, sowie durch ihre Höhe und 
Breite beschrieben. 

Ist die Rechteckliste für das durch den Parameter ‘Nummer* 
angegebene GFA-Fenster generiert, liefert GETFIRST in den zu 
übergebenden Integer-Rückgabevariablen ‘XpS* und ‘Yp£* die 
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absoluten - auf die linke, obere Bildschirmecke bezogenen - 
Koordinaten der linken oberen Ecke,sowie in‘ßr«fi'und'Ho«fi’die 
Breite und Höhe des ersten Rechtecks dieser Liste. Ist das Fenster 
vollständig durch andere Fenster verdeckt, so steht in ‘Brdl' und 
eine Null. Es besteht also keine Notwendigkeit, dieses 
Fenster dann neu zu zeichnen. 

Die Rechteckliste von Fenster I: 



Bei Fenstern, die nur teilweise von anderen Fenstern verdeckt 
werden, ergeben sich logischerweise mehrere sichtbare Rechtek- 
ke, die neu gezeichnet werden müssen. In diesen Fällen müssen 
durch den Befehl GETNEXT (s.dort) die Koordinaten und Maße 
der weiteren Redraw-Rechtecke ermittelt werden. 


G ETN EXT # {GETN} nächstes Listen-Rechteck ermitteln 

GETNEXT Xp&,Yp&,Br&,Ho& 



Wie unter GETFIRST beschrieben, kommt es bei verschiedenen 
Fenster-Ereignissen zu der Notwendigkeit, Rechteck-Bereiche 
von Fenstern neu zeichnen zu müssen. GETFIRST erstellt zu 
dem jeweiligen Fenster eine Liste aller davon betroffenen Recht¬ 
ecke und liefert die Koordinaten und Maße des ersten Rechtecks 
dieser Liste. Ergeben sich aus den Überschneidungen der Fenster 
mehrere Redraw-Bereiche des betroffenen Fensters, so können 
die weiteren Rechtecke mit GETNEXT ermittelt werden. 
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Dazu werden - wie auch bei GETFIRST - vier Integer- 
Rückgabevariablen übergeben, die anschließend die absoluten 
Koordinaten der linken, oberen Ecke des Rechtecks {'XpA’ und 
sowie dessen Breite und Höhe (‘ßr«fi'und ‘Ho<8Ö enthal¬ 
ten. Diese Abfrage wird so oft wiederholt, bis in ‘Br&‘ und ‘Hodt’ 
eine Null zurückgegeben wird. Ist dies der Fall, so war das 
vorhergehend ermittelte Rechteck das letzte in der jeweiligen 
Liste. Wird bereits die erste GETNEXT-Abfrage in ‘ßr<fi' und 
'Ho&’ mit Null beantwortet, so war das durch GETFIRST 
ermittelte Rechteck dieVollfläche entweder des aktiven Fensters 
oder eines inaktiven und frei liegenden - also nicht verdeckten - 
Fensters. 

Wurde durch OPENW #0 ein Hintergrund-Fenster geöffnet und 
durch SYSCOL (‘Objekt’ 6 und 7) Farben und Füllmuster dafür 
bestimmt, so restauriert GFA-BASIC die im Hintergrundfenster 
liegenden Rechtecke nötigenfalls selbstständig. GETFIRST und 
GETN EXT lassen sich allerdings auch auf das Null-Fenster anwen¬ 
den, so daß die Restauration der darin liegenden Redraw-Recht- 
ecke selbst verwaltet werden kann. Speziell in Fällen, in welchen 
auf dem Null-Fenster grafische Objekte als Desktop-Icons plaziert 
werden, empfiehlt es sich, den Redraw-Vorgang auf dem 
selbstdefinierten Desktop zu überwachen und Icons, sowie gfls. 
ähnliche Objekte neu zu zeichnen. 


INFOW # { INF } Fenster-Informationszeile bestimmen 

INFCW [#]Nurrmer, "Text" 


p Einem GFA-Fenster kann eine Informationszeile zugeordnet wer- 
den, die sich dann unterhalb der Titelzeile (‘Alover’) befindet. 
'Nummer* bestimmt die Nummer des betreffenden Fensters (I 
bis 4). Die weiteren Erläuterungen unterTITLEW gelten sinnge¬ 
mäß auch für INFOW. 


MOVEW# {MOV} 

Fenster bewegen 

MOVEW [#]Nuiiiter,Xp,Yp 




MOVEW zeichnet das - vorher durch OPENW geöffnete - GFA- 
Fenster mit der angegebenen Fenster- 'Nummer* (I bis 4) neu, so 
daß die linke, obere Ecke des äußeren Fensterumrisses auf den 
absoluten Koordinaten •XpTYp’ zu liegen kommt. Es werden 
dabei die jeweils aktiven Randelemente des Fensters neu gezeich¬ 
net. GFA-BASIC übernimmt dabei auch die Verlegung des aktuel¬ 
len Fenster-Inhaltes. 
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OPENW#{ o w} Fenster öffnen 

OPENW [#]Nuniter [,5$).Yp,Br,Ho,Attribute] 



‘Nummer’ bestimmt das zu öffnende, bzw. zu aktivierende Fen- 
ster.Wird nur OPENW #' Nummer ' ohne Angabe der Koordinaten 
und Attribute verwendet, wird das angegebene Fenster mit allen 
Attributen nach folgendem Schema positioniert: 


Fenster I | Fenster 2 

I 

Bild- 

.schirm. 

Mitte 

I 

Fenster 3 | Fenster 4 


Wenn diese Bildschirm-Aufteilung nicht gewünscht wird, können 
mit den optionalen Parametern ‘Xp’l’Yp’ die linke, obere Ecke 
sowie durch‘Br* und'Ho'die Breite und Höhe des Fensterumrisses 
bestimmt werden. 

In diesem Fall wird durch den Parameter‘Attribute'festgelegt,mit 
welchen Randelementen das Fenster ausgestattet werden soll. 
‘Attribute’ stellt einen Bit-Vektor dar, in welchem durch Setzen 
der jeweiligen Bits die dazugehörigen Elemente angeschaltet wer¬ 
den: 


■ 1 (alle Bits an) 

= 

alle Attribute zeichnen 

0 (alle Bits aus) 


keine Attribute (es wird 
ein 3D-Rechteck gezeichnet) 

BitO 

1 

= 

der vertikale Schieberegler 

BitI 

2 

= 

die vertikalen Scrollpfeile 

Bit2 

4 

= 

der horizontale Schieberegler 

Bit3 

8 

= 

die horizontalen Scrollpfeile 

Bit4 

16 

= 

‘Mover’-Balken incl.Titelzeile 

Bits 

32 


‘Ooser-Button links oben 

Bit6 

64 

= 

‘M/n/m/zer’-Button rechts oben 

Bit7 

128 

= 

‘Mox/m/zer-Button rechts oben 

Bits 

256 

= 

'Infb’-ZeWe unter dem ‘Mover’ 
‘S/zer’-Button rechts unten 

Bit9 

512 

= 


Die Reaktionsmöglichkeiten undVerfahrensweisen bei derVerwal- 
tung der einzelnen Fenster-Ereignisse sind im ‘BEISPIEL-PRO¬ 
GRAMM’ im Anhang ausführlich beschrieben. 
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Um den Hintergrund der Fenster I bis 4 einfacher verwalten zu 
können, sollte grundsäulich vor dem ersten Öffnen eines dieser 
Fenster das - nicht sichtbare - Fenster mit der Nummer 0 geöffnet 
werden. Dieses Fenster hat die Aufgabe, den Menüzeilenbereich 
am oberen Bildrand auszusparen und den Koordinatenursprung 
um die Menüzeilenhöhe nach unten zu versetzen. Grafik- und/ 
oder PRINT-Ausgaben werden dann am unteren Rand der 
Menüzeile ge’clipt', sodaß ein Überschreiben des Menüs verhin¬ 
dert wird Außerdem bietet SYSCOL für das Null-Fenster zusäa- 
lich eine vereinfachte Möglichkeit zur Restauration des Bild¬ 
schirm-Hintergrundes. 


SIZEW #{siz} 

neue Fenster-Größe bestimmen 

SIZEW [#]Nuiinier,Br,Ho 



SIZEW zeichnet die aktiven Randelemente des - vorher durch 
^ OPENW geöffneten - GFA-Fensters mit der angegebenen 'Num¬ 
mer’ (I bis 4) neu,sodaß es anschließend in den äußeren Umrissen 
die in ‘ßr’ angegebene Breite und die in ‘Ho’ angegebene Höhe 
aufweist. Die linke, obere Ecke des Fensterumrisses bleibt dabei 
auf der alten Position liegen. Bei Fenster-Vergrößerung wird gfls. 
ein Redraw-Ereignis für das betroffene Fenster ausgelöst 
(MENU(I)=2I). Der alte Fensterinhalt bleibt an der bisherigen 
Position erhalten. Die Arbeitsfläche in den neu hinzukommenden 
Rechtecken muß anschließend restauriert werden. 

Bei Fenster-Verkleinerung wird für die gfls. darunter liegenden 
anderen Fenster ein Redraw-Ereignis in MENU(I) gemeldet. Der 
Fenster-Inhalt des in der Größe veränderten Fensters bleibt 
innerhalb der neuen Arbeitsfläche erhalten. 


TITLEW# {TiT} Fenster-Titelzeile bestimmen 

TITLEW [#]Nuiiroer,''Text'' 


m Das Fenster mit der angegebenen 'Nummer' erhält imTitelbalken 
^ ('Mover') den angegebenen Text’ als Überschrift. 

Die Titelzeile kann auch nachträglich eingesetzt werden, bzw. 
während des Programmlaufs beliebig geändert werden, ohne dazu 
das Fenster schließen und wieder öffnen zu müssen. Es muß 
allerdings beim Öffnen des betreffenden Fensters in der'Attribut’- 
Bestimmung (s. OPENW #) eine Titelzeile initialisiert worden 
sein. Der geänderte Titel-Text wird im aktiven Fenster sofort und 
bei inaktiven Fenstern mit dem nächsten Aktivieren des Fensters 
(z.B. durch TOPW) sichtbar. 
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TOPW # { TO } Fenster-Parameter setzen und aktivieren 

TOPW [#]NunTner 

■ Dieser Befehl aktiviert das GFA-Fenster mit der angegebenen 
'Nummer’(\ bis4).DasFenstermußdazuvorherdurchOPENW 
geöffnet worden sein. Liegt es vor TOPW ganz oder teilweise 
unter einem anderen Fenster, wird ein Redraw-Ereignis in 
MENU(I) gemeldet, das Fenster 'nach oben' gelegt und dann 
aktiviert Die Randelemente werden als wählbar gezeichnet der 
Koordinaten-Nullpunkt in die linke, obere Ecke der Arbeitsfläche 
gelegt und das Grafik-’Oipp/ng’ für das Fensters angeschaltet. 

Außerdem werden in den reservierten GFA-Variablen ‘_X’ und 
‘_Y’ die Breite und Höhe der aktuellen Arbeitsfläche und in der 
WINDGET-Tabelle die für dieses Fenster spezifischen Parameter 
eingetragen Auch Datenausgaben mittels PRI NT oder CRSCOL- 
/CRSLIN-Abfragen etc. beziehen sich nun auf die neue 
Arbeitsfläche. 


WIN#{wi} 

Fenster-Parameter setzen 

1 WIN [#]Nuinmer 




Dieser Befehl ist prinzipiell identisch mit TOPW (s. dort). Der 
einzige Unterschied ist der, daß das mit 'Nummer' angegebene 
Fenster nicht aktiviert wird. Die Randelemente des Fensters 
werden also nicht neu gezeichnet und das vorher aktive Fenster 
bleibt für den Anwender als aktiv sichtbar. 


Dieser Befehl ist notwendig.um bei einem Redraw-Vorgang dieses 
Fensters so tun zu können, als wäre es das aktive Fenster. Die 
reservierten Variablen ‘_X’ und ‘_Y’, sowie die Einträge in der 
WINDGET-Tabelle werden aktualisiert und können nun für die 
Neuzeichnung des Fensters gelesen und verwendet werden. 


WINDFIND {WINDE} 

Fensternummer ermitteln 

WINDFIND Xp,Yp,Var& 



Liefert in der Integer-Rückgabevariablen 'Var<£' die GFA- 
Fensternummer (I bis 4) des Fensters, das sich unter der 
Bildschirmposition mit den absoluten Koordinaten 'Xp’/'Yp' be- 
findet.Wird eine Null geliefert, so befindet sich kein Fenster an der 
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angegebenen Position. Werden dagegen an der angegebenen 
Position mehrere Fenster untereinander gefunden, so wird in 
‘Var«fi’ die Nummer des zuoberst liegenden Fensters geliefert. 


WINDGET {wiNDG} Fenster-Parameter gesamt lesen 

VflNDGET Index,Varl& [,Var2&, Var3&, ... ] 


DerBefehlWINDGETermöglichtdas Lesenderfensterspezifischen 
^ Parameter-Tabelle des aktuellen Fensters (s.TOPW und WIN). 
Dazu wird in ‘Index’ ein Startelement angegeben. Beginnend mit 
diesem Element werden dann den hinter ‘Index’ aufgeführten 
Integer-Rückgabevariablen {‘Varldt’,’Var2<&’,... etc.) der Reihe 
nach soviele Werte aus derTabelle zugewiesen, wieVariablen in der 
Liste vorhanden sind. 

Z.B.: WINDGET 8, Slidepos&, Slidesize& 

übertragt den Inhalt des achten Elements indieVariable‘S//depos<fi' 
und den Inhalt des neunten Elements in die Variable'S/ides/ze<S'. 


‘Index’: 

0 

1 

2 

3 

4 

5 

6 
7 

=> 8 

=> 9 

=> 10 

=> 11 
12 

=> 13 

=> 14 

=> 15 

16 

17 

18 
19 


absolute X-Koordinate der linken, oberen 

Ecke des Gesamtfensters 

absolute Y-Koordinate der linken, oberen 

Ecke des Gesamtfensters 

Breite des Gesamtfensters 

Höhe des Gesamtfensters 

absolute X-Koordinate der linken, oberen 

Ecke der Fenster-Arbeitsfläche 

absolute Y-Koordinate der linken, oberen 

Ecke der Fenster-Arbeitsfläche 

Breite der Fenster-Arbeitsfläche 

Höhe der Fenster-Arbeitsfläche 

Stellung des vertikalen Schiebereglers; 

(0 = ganz oben ; 1000 = ganz unten) 

Größe des vertikalen Schiebereglers (0-1000) 
Stellung des horizontalen Schiebereglers: 

(0 = ganz links ; 1000 = ganz rechts) 

Größe des horiz. Schiebereglers (0-1000) 
aktive Fenster-Attribute (Bit-Vektor s. OPENW) 
WINDSET-Attribute des aktuellen Buttons 
aktuelle Texthöhe (8,14 oder 16) 
aktuelle Zeichensau-Adresse 
(SegmentOffset-> Longword,s.LOADFOMT) 
GFA-Fensternummer des obersten Fensters 
GFA-Fenstemummer des zweitobersten Fensters 
GFA-Fensternummer des zweituntersten Fensters 
GFA-Fensternummer des untersten Fensters 
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Die mit einem Pfeil gekennzeichneten Einträge können durch 
WINDSET auch gesetzt werden (s. dort). 


WIND_GET() Fenster-Parameter separat lesen 

Var=WIND_GET(Index) 


W1ND_GET() als Funktion liefert separat den Wert, der in der 
WINDGET-Tabelle des aktuellen Fensters (s.TOPW und WIN) 
unter dem angegebenen‘/ndex'enthalten ist.Weitere Erläuterun¬ 
gen finden Sie bei dem Befehl WINDGET. 


WINDSET {WINDS} Fenster-Parameter ändern 

WINDSET Index,Wertl [, Wert2,Wert3,...] 



Durch WINDSET können Änderung an einigen Elementen der 
WINDGET-Tabelle vorgenommen werden. Dazu wird in ‘Index’ 
ein Startelement angegeben. Beginnend mit diesem Element wer¬ 
den dann die hinter'lndex’aufgeführtenWerte (‘Wert / VWert2',... 
etc.) der Reihe nach sovielen Tabelle-Elementen zugewiesen, wie 
Werte in der Liste vorhanden sind. 


Z.B.: WINDSET 8,660,120 

überträgt den Wert 660 in das achte Element derTabelle (Position 
des vertikalen Schiebereglers) und den Wert 120 in das neunte 
Element derTabelle (Größe des vertikalen Schiebereglers). 

‘Index’: 


8 = Stellung des vertikalen Schiebereglers: 

(0 = ganz oben ; 1000 = ganz unten) 

9 = Größe des vertikalen Schiebereglers (0-1000) 

10 = Stellung des horizontalen Schiebereglers: 

(0 = ganz links ; 1000 = ganz rechts) 

11 = Größe des horizontalen Schiebereglers (0-1000) 

13 = Attribute des aktuellen Fenster-Buttons setzen 

14 = Texthöhe setzen (nur £ GA/l^GA: 8,14 oder 16) 

Hierzu bitte auch DEFTEXT und LOADFONT 
beachten. 

15 = neue Zeichensatz-Adresse setzen (Segment: 

Offset => Longword, s. LOADFONT) 
Hierzu bitte auch DEFTEXT und LOADFONT 
beachten. 
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ANHANG A. BEISPIEL-PROGRAMM' 


WINDCW-Demo 


SCREEN 18 

// Für VGA 

CLS 

// Klar Schiff 

scr_x%=_X , scr_y%=_Y 

// Bildschirm-Auflösung 

indx%=4 

// 4 Fenster 

// Bitvector für Fensterstatus 

w_par%=$FFFTWFF 

DM x%(4),y%(4),}:Ä(4),h%(4) 

// 4 Felcter für Fenster- 

' 

// Koordinaten und Maße 

iiLset 

// Pulldown-Maiü-Init 

CN MEMJ GOSÜB mjteal 

// Event-Kontrolle 

CN MENÜ BUTKN GOSÜB m_essage // für Menü, Maus, 

CN MENÜ MESSAGE GOSÜB m_essage // Fenster und 

CN MENÜ KEY GOSÜB k_^ 

// Tastatur einschalten 

SY900L 6,1,7 

// Farte und Füllituster für 

SY9COL 7,4,4 

// Bildschirm-Hintergrund 

OPEIM #0 

// Sesam-öffne-Dich-Screenfenster 

OPENW #1 

// Eintal ein Windcw... 

EULLW #1 

// ...voll öffnen und... 

CLOSEW #1 

// ...gleich wieder schließen: 

' 

// Bildschirm-Etmtergrurid oJcay! 

ALEFJT 2, "CHJ:",3, "8088l286l386sx|386|486“,intel% 

' 

// Brarefaktor 

FDR I%=4 DOftNIO 1 

// vier Fenster 

INFOW #1%,'' INFO-Zeile ' 

'+SrR$(I%) // Infozeile setzen 

TITIEW #1%,'' TITEL-Zeile 

"+SrR$(I%) // Titelzeile setzen 

attr%=1008 

// keine Scrollelemente 

IF I%=1 IBEN attr%=TRÜE 

// außer in windcw 1 

OFQ« #I%,100-I%*20+30,80- 

T%*16+20,scr_x%/2,scr_y%/2,attr% 

w_cls(I%) 

// 'n bißchen Farbe rein 

NEXT 1% 

// nächstes Fenster 

DO 

// Harptschleife 

CN MENÜ 

// Event-Koitrolleur 


// witzige bouncing-box 

IF (TIMER-cnt%)>1000 

// genug Zeit für Fensterhandling 

IF WIND_GET(16)=1 

// Fenster 1 auf? 

MCUSE iiK%,ny%,k% 

// Maus-Köord. holen 

CODOR indx%*3 

// Fensterfärbe 

EEFFILL indx%*7 

// Fenstemuster 

PBOX pxl%,fyl%,pxl%+30,Eyl%+30 // Oaellbox zeichnen 
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pxl%=px2%, Eyl%=Ey2% // Koordinaten-Eimerkette 

px2%=RAND(_X-30), jy2%=RAND(_Y-30) // neue Ziel-Koord. 

gsbox(7,10,5,pxl%,Eyl%,30,30,px2%,Ey2%,30,30,15,15) 

' // und los geht's 

CEFFILL RAND(24)+10 // Muster und... 

COIOR RAND(15) // .. .FariDe für neu Zielbox 

PBQX px2%,py2%,px2%+30,Ey2%+30 // Zielbox zeichnen 
IF ltK%<>MOÜSEX CK lTy%oMDUSEY CR MOÜSEK TOEN cnt%=TIMER 
' // Maus-Aktion ?? Dann Fause 

FTsJDTF 

IßOP // Haxjptschleifen-Elxfe 

fROCEDURE m_essage // Window-Message-Handling 

WINEGET 16,indx% // Index des akt. Windows holai 

wg8%4raNDj3Er(8) ,v^%4tfIl®_GEr(9) // Slider-(3röße und 

vgl0%4^^M)J:$^^(10) ,vigll%4^/IND_Ci:r(ll) // -Position holen 
SELECT MEMJ(l) // Ereignis-iyp feststellen 

CASE 2 // TOP-Window 

IF MENU(7) // Window gewählt? 

indx%=MEMJ{7) // Index feststellen 

INECW iincM, " CIDFFER) Window ''+SIR$(incJ(%)+'' aktiviert" 

IF Brsr(w_Ear%,indx%-l)=0 // Window ist 'minimized' 
w_iar%=BSEr(w_par%, indx%-l) // Aktiv-Flag anschalten 
CIDSEW #indx% // erst schließai 

attr%=1008 // dam Attribute... 

IF indx%=l THEN attr%=TRÜE // ...setzen 

OPEMv’ #indx%,x%(indx%),y%(ini<ft),b%(indx%),h%(ini<%),attr% 

' // neu öffnen 

ElOIF 

TOEW #indx% // 'toppen' 

w_cls{indx%) // und T^jete drauf 

gsbox(5,6,10,0,0,_X,_Y,0,0,_X,_Y,0,0) // 'grow'-Effekt 

ENDIF 

CASE 4 // CLOSE-Windcw 

gsbox{l,6,50,0,0,_X,_Y,0,0,0,0,0,0) // 'shrink'-Effekt 

w_par%=BClR(w_par%,indx%+3) // 'closed'-Flag setzen 
WINDGET 0,x%(indx%),y%(indx%),b%(indx%),h%{indx%) 

' // die alten Koordinaten inerken 

CLOSEK -SirriÄ // und Fenster zu 

IF WIND_GBr(16) // noch ein Fenster da? 

TOEW #WIND_GEr(16) // dam bitte Bestegung 

ELSE // alle Fenster zu! 


ALERT 2, "Prograntn-Ende ?",1, "OKAYINEIN",d% 


IF d%=l 
EDIT 
rasF. 


// Progranm-Ende? 

// zurück zum Editor 
// weiter ! 
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ALERT 1, "Fenster öffnen:", 5, "1|2131411-4", indx% 


IF indx%=5 
POR in3x%= 1 TO 4 
OPEFW #indx% 
w_cls(indx%) 
NEOT indx% 

ELSE 


// alle Fenster öffnai 
// vier Stück 
// aufmachen 
// und arnalen 
// nächstes 
// nur eins öffnen! 


? ' 'Maustaste drücken, halten und Maus ziehen' 


REFEAT // auf... 

UWTIL MOUSEK // Maustaste warten 


MOüSE x%,y%,k% // Maus-Status holen 

RURRERBOX x%,y%,60,60,b%,h% // Lasso-Box aufziehen 

attr%=1008 // Attribute für 2-4 

IF I%=1 THEN attr%=TRüE // Windcw 1 mit allen Atrib. 

OPENW #indx%,x%,y%,b%,h%,attr% // öffnen 

w_cls{indx%) // und tapezieren 


EUDIF 

ENDIF 

CASE 5 // MINIMIZE-Wirdciw 

WINDGET 0,x%(indx%),y%(indx%),b%(indx%),h%(indx%) 

' // die alten Koordinaten merken 

CLDSEW #indx% // schüfen 

OEFNW #indx%,(indx%)*40,scr_y%-40,30,30,0 // als kleine 

' // Box wegpacken ('iconisieren') 

CIEAFW #indx% // und putzen 

w_par%=BCLR(w_par%,indx%-l) // aktiv-Flag ausschalten 


TOEW #WIND_GEr(17) 
w_cls (WIND_GET (16)) 

CASE 6 

INEOW #indx%,' 'Volle Grcpe 


// nächstoberes Fenster 'tcppen' 
// und tapezieren 
// MAXMIZE-Window 
(MAXIMIZER)'' 


IF BTST(w_par%,indx%-l)=0 // war Fenster vorher inaktiv 


w_par%=BSEn'(w_par%, indx%-l) // dam aktiv-Flag setzai 


CLDSEK #indx% // Fenster zu 

attr%=1008 // Attribute setzen 


IF I%=1 TUEN attr%=TRüE // für Fenster 1 alle 
OFETW #indx%,0,0,scr_x%,scr_y%,attr%// und Fenster auf 
ENDIF 

FULLW #indx% // auf volle Größe bringen 

gsbox(7,10,10,_X/2-10,_Y/2-10,20,20,0,0,_X,_Y,20,20) // Effekt 
w_cls(indx%) // und Farbe rein 

CASE 7 // Aufwärtspfeil angeklickt? 

WINDSET 8,v^8%-20 // vert. Schiäaer-Etos. vertnindem 

INFOW #indx%, " (UP-ARRCW) / Bos: "+SrR$(wg8%) 

CASE 8 // Abwärtspfeil angeklickt? 

WINDSET 8,vg8%+20 // vert. Schieber-Pos. erhchai 
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IMW #indx%, '' (DOm-ARRCW) / Ks: "+SrR$(wg8%) 

CäSE 9 // Linkspfeil angeklickt? 

WINDSEir 10,wgl0%-20 // twriz. Sdiiäjer-Bcs. vermindern 

INPCW #indx%, '' (LEFT-ARRCW) / PDS ; "+Sn^ (wglO%) 

CASE 10 // Recht^feil angeklickt? 

WINDSET 10,v^l0%+20 // horiz. SchidDer-Pos. erhäien 

INPCW #ind>c%,'' (RIOfT-ARROW) / Bds: ' '+SrR$(wglO%) 

O^SE 11 // vert.Balken oben angeklickt? 

WDOSEH' 9,wg9%-20 // vert. Schiebergröße vermindern 

raPOW #indx%, " (PAGE-UP) / Siz: "+SrR$(wg9%) 


CASE 12 

WINDSBr 9,wg9%+20 


// vert.Balken unten angeklickt? 
// vert. SchidDergröße erhcSien 


INFCW #indx%, " (PAGE-DCW) / Siz: "+SrR${wg9%) 


CASE 13 

wncSET ll,wgll%-20 


// horiz.Balken links ange)d.ic)ct? 
// horiz.SchidDergröße vermindern 


INFOW #ind>c%,'' (PAGE-LEFT) / Siz;' '+3rR$(wgll%) 


CASE 14 

WINDSET ll,wgll%+20 


// horiz.Balken rechts angeklickt? 
// horiz.Schidoergröße erheben 


INFOW #indx%,'' (PAGE-RICäfT) / Siz:' '+SrR$ (wgll%) 


CASE 15 

INFCW #indx%, '' {\ 
WINDSET 8,MENU(7) 
CASE 16 


// vert. Schidser (oewegt? 
(V-SLIEER) / Pos: "+SrR$(MENÜ(7)) 

7) // neue Positien setzen 

// horiz. Schidoer bev^egt? 


INFCW #indx%, " (H-SLHER) / Pos: "+SrR${MENU(7)) 


WINDSET 10,MENU(7) // neue Position setzen 

CASE 17 // MOVE-Window 

INFOW #indx%,''Fenster wurde bewegt (MOVER)'' 

MC^/EW #indx%,MEMJ(7) ,MENU(8) // an die neue Positien 
w_cls(indx%) // Fenster putzen 

CASE 18 // SIZE-Wirrdow 

INFOW #indx%,' 'Fenstergrepe verändert (SIZER)'' 

SIZEW #indx%,MENÜ(7),MENÜ(8) // neue Größe einstellen 
w_cls(indx%) // Fenster putzen 

CASE 19 // INPO-Zeile 

INFOW #indx%,' 'mfozeile wurde ange)tLic)ct!'' 

CASE 21 // Redraw-Event ist eingetreten 

@redraw(MENU(7),MENÜ(8),MENÖ(9),MENU(10)) // Bereiche... 
ENDSELBOT II... neu zeichnen 

REJIURN 

IROCEDURE m_deal // Menü-Handling 

trp%=MEMJ(0) // Ffenüpunlct-Index? 

IF m_pun]ct$(rrp%) = " Datei laden" 

FILESELBOT "Meine.Dat",path$ // Datei auswählen 

@Path(path$, " :",label$,path$,F$)// Doppelpunkt suchen 
@Bath(path$, "\",path$,b$,F$) // ersten Backslash suchen 

@Path(b$, " . " ,)o$,c$,F$) // nach Trennpurütt suchen 


(gofe HotSpot 





288 






Beispiel-Programm 


al$="gewählt: l"+label$+" (Laufwerk) I "+path$+" (Pfad) I " 
al$=al$+b$+" (Name) I "+c$+" (Extensiai) " 

ALERT 3,al$,0, "Danke" ,back% 

' ** Lade-Routine ** 

ELSE IF m_punkt$(np%) = " Datei speichern" 

' ** ^«icher-Routinfi ** 

E[£E IF m_punkt$(np%) = " Datei einrichtai" 

' ** Init-Routine ** 

ELSE IF m_punkt$(iTp%) = " Datei löschai" 

' ** Lösch-Routine ** 

ETSE IF m_pun)d;$(iTp%)=" Informticn" 
al$="Geschlossene Fenster kcmailüber die Ziffern" 
al$=al$+"tasten 1 - 4 (wieder geöffnet werden" 

AIERT l,al$,l, "CKAY",back% 

ELSE IF m_punkt$(itp%) = " Quit" 

' ** Quit-Routine ** 

EDIT 

EM)IF 

IF m_punkt$(itp%) = " Menüpunkt la" 

' ** Menü-Routine 1 ** 

al$="Iter Text des Mentixinktes lalist jetzt verändert!" 
ALERT l,al$,l, " AHA !! ",back% 
m_punkt$ (itp%) = " la ungekehrt'' 

MENU m_punkt$() 

ELSE IF m_punkt$(rtp%) = " la urtgekehrt" 

' ** Alternative zu Menü-Routine 1 ** 
m_punkt$(rtp%) = " MenCpunkt la" 

MENÜ m_punkt$ () 

ENDIF 

IF m_punkt${np%) = " Menüpunkt Ib" 

' ** Menü-Routine 2 ** 

al$="Der Meni^junkt Iblist jetzt markiert!" 

AIFKT l,al$,l," SoSo !! ",back% 
m_punkt$(np%) = "' <- Ib-Markierung" 

MENU m_punkt$() 

ELSE IF m_punkt$(np%) = "‘ <- Ib-Tfarkierung" 

' »* Markierung für ^fenü-Routine 2 aufheben ** 
m_punJ<t$(rtp%) = " Menüpunkt Ib" 

MENU m_punkt$() 

ENDIF 

IF m_punkt$(np%) = " Menüpunkt Ic" 

' ** Menü-Routine 3 ** 

al$="Der Menüpunkt Iclist jetzt unbrauchbar !" 

ALERT l,al$,l," Nanu ?? ",back% 
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m_punJ<t$(np%) = "- MenüpunJct Ic" 

m_punkt$(np%+2)=" Ic wieder aktivieren'' 

MENU m_punkt$() 

? np% 


Ic wieder aktivieren'' 
Mera^wnkt Ic" 

Menüpun)<t 2a'' 

Mem^xinkt 2a" //— // 


EljlDIF 

IF m_punkt$(np%)=" 
m_pun>rt;$ (np%-2)=" 
m_punkt$ (itp%) = " 

MENU m_punkt$() 

EISE IF in_punkt$(rrp%)=" 

' ** Menü-Routine 4 ** 

ELSE IF m_punkt$(np%) = " 

' ** Maii-Routine 5 ** 

EISE IF m_punkt$(np%) = " 

' ** Menü-Routine 6 ** 

ELSE IF m_punkt$(np%) = " 

' ** Manü-Routine 7 ** 

EISE IF m_punkt$(rtp%)=" 

' ** Menü-Routine 8 ** 

EISE IF m_pun]<t$(np%)=" 

' ** Menü-Routine 9 ** 
ENDIF 
REOTRN 

FRCraXJRE k_^ 

IF MENU(1)=1 
taSte%=MENU(5) AND $FF 
shift%=MENU(6) 

PRTNT "Shift-/ ASCII-Code 
indx%=VAL(CHR$(taste%)) 



// 

Mera^unkt 2b'' 

// 


// irgend- 

Mai^xmkt 2c'' 

// velche 


// Efenü- 

Meni^junkt 3a'' 

// punkte 


// 

Menüpunkt 3b" 

// 


// 

MenCpunkt 3c'' 

// 

//- 

// 


// Taste gedrückt% 

// ASCII-Code holai 
// Shift-Status holen 
: ";shift%"'/"'taste% 

// Tasten-Zeichen emdtteln 


IF indx%=>l AND indx% <= 4 // Taste '1' bis '4' ? 


IF ETSr(w_par%,indx%+3)=0 // betreffendes Fenster inaktiv? 
w_par%=BSET(w_par%,indx%+3) // Aktiv-Flag setzen 
OPENW #ini<%,x%(ir«ic%),y%(indx%),t%(indx%),h%(indx%),attr% 


// 


w_cls(indx%) 

// 

ENDIF 


ENDIF 


ENDIF 


REHUEN 


FKXEDURE m_set 

// 

DIM m_punkt${32) 

// 

RESTORE m_datas 

// 

PCR i=0 TO 31 

// 

READ m_punkt$(i) 

// 

EXIT IF m_punkt$(i) = "“ 

. . . / # 

NEXT i 

// 


Fenster mit alten Koord. öffnen 
und aimalen 


Pulldcwn-Menü-Init 
hier: nex. 32 Einträge 
DATA-Zeiger setzen 
32 Einträge 
lesen 

// Exit, wenn Endemarkierung 
nächster Eintrag 
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m_punkt$(i)=" " // ^fe^ü-Init abschließen 

m_purLkt$(i+l) = "" // " " " 

m_datas; // CRTA-Label 

DATA CATEI 

DATA Datei laden 

DATA EBtei speichern 

EftTA Datei einrichten 

DATA Datei löschen 

DATA -, Infomaticn, Quit,"" 

DATA SE5WICE 

DATA - BDXK 1 - 

DATA Menüpunkt la 

DATA Menüpunkt Ib 

CftTA Iteu^junkt Ic 

lÄTA-BDXK 2 - 

DATA Menüpunkt 2a 

LATA Maiüpunkt 2b 

LATA Menüpunkt 2c 

DATA-BLOCK 3 - 

DATA Menüpunkt 3a 

DATA Menüpunkt 3b 

DATA Menüpunkt 3c 

DATA- 

MEMJ m_punkt$() // ^fe^ü initialisieren 

RBIUFN 

rKXEDÜRE w_cls(wx%) 

OODCH wx%*3 // Fensterfärbe 

EEFFHiL wx%*7 // Fensterfüllung 

LBOX 0,0,_X,_Y // Rechteck zeichnen 

RETURN 

EROCEDÜRE redraw{X%,y%,b%,h%) 

PCR I%=1 TO 4 // vier Fenster 

WIN #1% // Fenster-Init 

CLIP OFFSET WIND_GEr(4) ,WIND_GEr(5) // clipping setzen 
GETFIRST #I%,wx%,vY%,wb%,vih% // erstes Rechteck holen 

WHII£ vti% OR vh% // solange vorhanden ... 

IF RC_INrERSECr(x%,y%,b%,h%,wx%,vy%,vto%,wh%) //Überlappung?? 
CLIP wx%,wy%,vt>%,vh% // Überl^pungsrechteck clippen 

w_cls(I%) // Scheibenwischer an 

ENDIF 

GEINEXT wx%,wy%,vi)%,\«h% // gfls. nächstes Rechteck holen 

WEND 

NEXT 1% // nächstes Fenster 

WIN #WIND_GEr{I6) // Fenster-Init wieder wie gehabt 

REOTFN 

FRCCEDURE gsbQx(nd%,st%,p%,(5<%,qy%,cJ)%,cfi%,zx%,zy%,zh%,zh%,b%,h%) 
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' PDoduziert eine '(3CW'- und/oder 'SffilNK'- und/oder 'tCWE'-Box 

' Eine GFiOrtBQX bzw. SHRINKBQX ist ein grafisches Rechteck, das 
' sich - von einer Ursprungsgrösse ausgehend - c^Tiamisch bis zu 
' einer gewünschten Grösse vergrössert (grow) bzw. verkleinert 
' (shrink). Eine M3VEBCK ist ein Rechteck mit konstanter Größe, 

' das sich vcn einer bestiimten Bildschimposition zu einer 
' anderen bevegt (move). 


itd% : Arbeitaiüdus (4Bit-Vektor) 

Bit 0 gesetzt (+1) = Quellbcix wird 'geshrinkt' 

Bit 1 gesetzt (+2) = 'Move'-Effekt wird ausgeführt 
Bit 2 gesetzt (+4) = Zielbox wird 'gegrcwt' 

Bit 3 gesetzt (+8) = öoell- und Zielbox vertauschen 

st% : gibt die Anzahl der Bei«egungsschritte an (belidsig) 

p% : gibt Verzögerung an (0-100, gfls. für schnelle 386er) 

cjx%,q/%,t^,c}i% = 54x)S, Breite und Hohe der Quellbox 

zx%,zy%,zb%,zh% = )4)OS, Ypos, Breite und Hche der Zielbox 

b%,h% : Breite und Höhe der Bev^gungsbox (MOVE) 


DXAL 1%, j%,k%,l%,ls%,le%,x,y,xx,yy 
EEFLINE -%1001001001001001 // idealer Linienstil 

GRAHMXE 3 // »»-Modus an 

IF nd% AND 8 // Quell- und Zielbox tauschen 

cjx%,zx% 

SWiP q/%,zy% 

Sl^RP cJ)%,zJ3% 

3^ qh%,zh% 

EUDIF 

KK k%=0 TD 2 //je ein Durchgang für Quell-, 

' // Move- und Zielbox 

IF md% AND (2''k%) // entsprechendes Bit gesetzt? 

IF )<%=0 IHEN ls%=0, le%=st%/2 // ffarschrichtung 

IF k%=l IHEN ls%=0,le%=st% // jeweils 

IF ){%=2 THEN ls%=st%/2, le%=st% // einstellen 

F» j%=0 TO 1 // zwei Zeichen-Durchgänge 

FOR I%=ls% TO le% // Schrittschleife 

IF k%=0 // Quelhoox ist dran? 

x=qx%+I%*((^/2)/st%) // Koord. ... 

y=ci'%+I%*((qh%/2)/st%) //berechnen... 
xx=( 5 ?%-kJ)%-I%* ((qb%/2) /st%) II... 

yy=<l^+qh%-I%*((c^%/2)/st%) H ... 
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ELSE IF k%=l // MDvdxK dran? 

x=qx%+cJi%/2+I%* ((zx%+zb%/2) - ((5<%-Ki)%/2)) /st%-b%/2 
y=qy%+4i%/2+I%* ((zy%+zh%/2) - (qy%+(^i%/2)) /st%-h%/2 
xx=qx%+qb%/2+I%* {(z3c%+zb%/2) - (qx%-K^/2)) /st%+b%/2 
yy=qy%+qh%/2+I%* ((zy%+zh%/2) - {qy%+<3h%/2)) /st%+h%/2 
ELSE // Zielbox dran? 

x=2x%+zb%/2-I%*((zb%/2)/st%) 
y=zy%+zh%/2-I%*({zh%/2)/st%) 
xx=zx%+zb%/2+I%*((zb%/2)/st%) 
yy=zy%+zh%/2+I%*({zh%/2)/st%) 
endif 

nWJ x,y+(yy-y)/4 TO x,y TO x+(xx-x)/4,y // zeichnen... 
ERAW xx-(xx-x)/4,y TO xx,y TO xx,y+{yy-y)/4 II... 

ERAW x+(xx-x)/4,yy TO x,yy TO x,yy-(yy-y)/4 II ... 

ERAW xx,yy-(yy-y)/4 TO xx,yy TO xx-(xx-x)/4,yy II... 

• FCR 1%=0 TO p%*100 II Bratis-Schleife 

FÜR 1%=0 TO p%*100*intel% // Thtelfakcr nur in dieser Dhid 

NEXT 1% 


NEXT 1% 

// nächsten Schritt 

NEXT j% 

// nächsten Zeichendurchgang 

ENDIF 


NEXT k% 

// nächste Box 

GRAFHMOCE 1 

// Grafikmodus wieder nonral 

EEFLXNE 1 

// Nur für diese ITemo 


RETURN 

EROCEDüRE löth (p_str$, P_sgn$, VAR p_bk$, d_bk$, f_bk$) 


' Uhtersucht einen String ab Stringende rücksrärts auf 
' das erste Vorkennen eines in einer Liste vorgegebenai 
' Zeichens. Wird das (eines der) Suchzeichen gefunden, 

' wird der String bei diesem Zeichen geteilt und die 
' zvei Teile zurückgegeben. Als dritte Rückgabe erhält 
' man dam das gefundene Zeichen. Wird es nicht gefunden, 

' wird in der ersten Rückgabevariablai der gesamte Suchstring 
' zurückgegdaen und die beiden anderen Rückgabevariablen 
' sind leer. 


' P_str$ = zu untersuchender String 
' P_sgn$ = String der das/die Trennzeichai enthält 
' P_bk% = Rückgabe-Stringvariable, die nach 
' Abschlrp den vorderen Stringteil enthält. 

' D_bk% = Rückgabe-Stringvariable, die nach 
' Abschlip den hinteren Stringteil enthält. 

' FJ:ic% = Rückgabe-Stringvariable, die nach 
' Abschltp das gefundene Zeichen enthält. 
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UXAL P_i%,P_fnt3% 


IF L£N (p_str$) // ist was zum durchsuchen da? 

FCR P_j%=IFN(p_str$) DOMWO 1// String rückwärts durchgdien 
P_fnd%=INSrR(P_sgn$,MID$(p_str$,P_j%,l)) //jedes Zeichen 
' //im Trainzeicteistrirg vergleichen 


EXIT IF P_fnd% 

NEXT P_j% 

IF PJ%<1 OR LEN(p_str$)=l 
IF P_fnd% 

p_bk$="", d_bk$="" 
f_hk$^_str$ 

KT fr. 

p_bk$=p_str$ 
d_fck$="", f_bk$="" 


// Exit, falls fündig 
// nächstes Zeichen 
// 'P_str$' nur 1 Zeichen lang 
// oder nichts gefunden 
//im ersten Zeichen gefunden 
// keine Vorder- ocder Hinterteil 
// Suchzeichen ist 'P_str$' 

// kein Zeichen gefunden! 

// 'P_str$' zurück 
// sonst nichts 


EMDÜT 

ELSE // Zeichen wunde gefunden 

p_bk$=lffT$(pjstr$,P_j%-l) // Vorderteil zurück 
d_bk$=RIGHr$ (p_str$,LEN(p_str$) -I£N(I£FT$ (p_gtr$, PJ%))) 
' // Hinterteil zurück 

f_hk$=RI(3ff$(I£FT$(p_str$,P_j%))// Trennzeichen zurück 
endif 
ENDIF 
REinjFN 
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ANHANG B. 


ASCII-TABELLE 
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Scan-Codes bei KEYGET und KEYTEST 


ANHANG C. PC-TASTATUR' 
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ANHANG Q 'FEHLERLISTE' 


-1 Falsche Funktionsnummer 
-2 File nicht gefunden 
-3 Pfad nicht gefunden 
-4 Zuviele Dateien offen 
-5 Keine Permission 

-6 File Handle falsch 

-7 MDB zerstört - crashing 
-8 Speicher voll 
-9 Falsche Adresse 
-10 Falsches Environment 
-11 Format falsch 
-12 Access Code falsch 
-13 Invalid data 
-14 Error-014 
-15 Falsches Laufwerk 
-16 RMDIR Fehler 
-17 Kein Rename mit 

verschiedenen Laufwerken 
-18 Datei Tabelle voll 
-19 Argument falsch 
-20 Argument Liste zu lang 
-21 Exec Format falsch 
-22 Cross-device link 
-23 Error -023 - 
-32 Error -032 
-33 Math argument 
-34 Bereichsfehler 
-35 File existiret schon 
-36 Error -036 - 
-127 Error-127 
-128 Stopped 


0 Error 000 

I I Division durch Null 

j 2 Überlauf 

3 Wertebereich 

4 Negative Wurzel 

5 SINGLEÖ Überlauf 

6 Error 006 

7 Redimension 

8 Feld nicht eindimensional 

9 Feldindex zu groß 

I 10 Dirn zu groß 

I 11 Falsche AnzahlDimensionen 

I 12 GrafModeFail 

! 13 String zu lang 

14 Ausdruck zu komplex 

15 EMS voll 

16 EPopReDim 

17 EMSInitFail 

18 EPushNotDim 

19 EMSAccFail 

20 Feld zu klein 

21 Falsche File# 

22 File schon geöffnet 

' 23 Open-Modus falsch 

24 File nicht geöffnet 

25 EMSempty 

26 EMSTypeMismatch 

27 EMSMemBlk2Large 

28 EMSMemBlk2Small 

29 PolyPtOvf 

30 ArrTypeErr 

31 Type Redefinition 

32 Type Undefiniert 

33 Type passt nicht 

34 Element Redefinition 

35 Feld zu groß 

36 FMSAccFail 

37 EMSCfgAccFail 

38 EMSNameNotFound 

39 EMSMemBlkO 

40 Procedure Undefiniert 

41 Parameter passt nicht 

42 Zu viele Parameter 

43 Zu wenig Parameter 

44 MatrixErr 
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45 Bereichsfehler (Bound) Notizen 

46 DATA-Ende erreicht 

47 Data nicht numerisch 

48 Falsche Fenster-Nummer 

49 Fenster nicht geöffnet 

so WinNotTopped 

51 C-Call Destroyed Register 

52 Matrix nicht quadratisch 

53 Matrixproduktnichtdefiniert 

54 lllegalWndGSNum - 

55 lllegaIWriteMd - 

56 NotlnProcFor 

57 LPT Fehler - 

58 COM Fehler - 

59 Illegale Laufwerksnummer - 

60 PUT-String-Fehler - 

61 Falscher SCREEN-Modus I - 

62 Dateiende erreicht I - 

63 Error 063... I - 

87 Error 087 - 

88 BSAVE/BLOAD Fehler - 

89 Fehlerhaftes GOTO - 

90 Random lO-Fehler - 

91 €rror 091... _ 

98 Error 098 _ 

99 Stack Überlauf 

100 GFA-BASICPC4.3I _ 

(c) 1990 GFA Systemtechnik _ 

101 Error 101... 

121 Error 121 

122 Proc/Func zu groß 

123 FUNCTION Undefiniert 

124 ENDFUNC erreicht 

125 MathErr2 

126 Load Error 

127 MathErrl - 
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ANHANG E. THEMEN-ÜBERSICHT' 


2. EIN- UND AUSGABE - BEFEHLE .46 

2.1. DATEN - EINGABE.46 

FORM INPUT Fonnatierte Stringeingabe . 46 

FORM INPUT AS Formatierte Stringeingabe m. Vorgabe ... 46 

INPUT { INP } Dateneingabe.46 

INPUT$ Zeichenketteneingabe.48 

LINE INPUT Zeichenketteneingabe.48 

2.2. DATEN - AUSGABE .48 

PRINT ( ? oder P 1 Daten ausgeben.48 

PRINT USING { P USING } Daten formatiert ausgeben . 49 

PRINT ATXY { P ATXT } löten positioniert ausgeben . 51 

PRINT ATYX { P ATYX ) Daten positioniert ausgeben . 51 

SPCO Leerzeichen ausgeben.51 

WRITE { WR } Daten ausgeben.51 

3. TEXTBILDSCHIRM - OPERATIONEN .54 

3.1. CURSOR - NACHFRAGE .. '' .54 

CRSCOL aktuelle Cursorspalte liefern.54 

CRSLIN aktuelle Cursorzeile liefern . 54 

POSO CR-bezogene Zeichenspalte ermitteln .... 54 

3.2. CURSOR - POSITIONIERUNG.55 

HTAB { HT } aktuelle Cursorspalte'Bestimmen.55 

VTAB { VT } aktuelle Cursorzeile bestimmen.55 

LOCATE { LOCAT } Cursor positionieren.55 

LOCAXY Cursor positionieren.55 

lOCAYX Cursor positionieren.55 

TAB() Tabulator setzen .56 

3.3. TEXTBILDSCHIRM - STEUERUNG.56 

SCROLL OFF { SCRO OFF } Text-Scrolling ausschalten . 56 

SCROLL CN { SCRO ON } Text-Scrolling anschalten . 56 

_TS Textbildschirm-Adresse liefern.57 

TBOX { TB } Rechteck im Textmodus zeichnen.57 

TCOLOR { TCO ) Textattribut im Textmodus bestimmen .... 57 

TGET { TGE ) Bildschirmbereich im Textmodus speichern 59 

TCLIP { TC ) Textausgabe-Bereich bestimmen.59 

TPBOX { TPB ) gefüllt.Rechteck im Textmodus zeichnen . 60 

TPUT { TPü } Bildschirmbereich im Textmodus setzen .. 60 

TTEXT { TT } Text auf Monochrom-Karte ausgeben.60 

WRAP ON { WR CN } Zeilen-Umbruch anschalten . 60 

WRAP OFF { WR OFF } Zeilen-Umbruch ausschalten . 61 

4. DISKETTE UND FESTPLATTE.64 

4.1. BLOCK - OPERATICNEN.65 

BLOAD { BL ) Datei in Speicherbereich laden.65 


BSAVE { BS } Speicherbereich auf Datenträger sichern . 65 
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4 . 2 . UMBENENNEN, LÖSCHEN, NACHFRAGEN UND SUCHEN.65 

DFREEO freien Disk- bzw. HD-Speicher ermitteln 65 

EXISTO Existenz einer Datei prüfen.65 

FGETDTAO Adresse d.'Disk-Transfer-Area' ermitteln 66 

FSETDTAl) Adresse d.'Disk-Transfer-Area' bestimmen 66 

FSFIRSrj) EBtei suchen.67 

FSNEXTO weitere Datei suchen .67 

KILL { KI } Disk-Datei löschen.67 

NAME..AS { NA. .AS } Datei umbenennen.67 

RENAME..AS { REN. .AS ) Datei umbenennen.68 

4.3. INTERPRETER - BEFEHLE .68 

LIST { LIS ) Progranm als ASCII-Code listen/speichern 68 

LOAD { LOA ) Programm in Arbeitsspeicher laden.68 

PSAVE { PSA ) Programm speichern (listgeschützt) . 69 

SAVE ( SA } Progranm speichern (Token-Code) .69 

4.4. DIRECTORY - OPERATIONEN.69 

CHDIR ( CHD ) Ordner wechseln.69 

CHmrVE { CHDR } aktuelles Laufwerk bestimmen.70 

DIR Directory ausgeloen.70 

DIR$() aktuellen Ordnernamen ermitteln . 70 

FILES { FI } Directory (erweitert) ausgeben .71 

MKDIR { MK 1 Ordner erzeugen.71 

RMDIR { RM } Ordner löschen.71 

5. DATEI - HANfflABUNG.74 

5.1. ÖFFNEN, SCHLIESSEN, POSITION UND DATUM.74 

CIDSE { CL ) Datenkanal schließen . 74 

OPEN { 0 } Datenkanal öffnen.74 

RELSEEK { REL } Filepointer verschieben.76 

SEEK { SE } Filepointer setzen .76 

TOUCH { TOU } Datei-Zeitangabe ändern.76 

5.2. DATEI - READAJRITE.77 

BGET { BG ) Teildatei lesen.77 

BPÜT { BP ) Teildatei schreiloen .77 

INP(t) Daten tyteweise aus Datei lesen . 77 

OUT ♦ { OU ) Daten einzeln in Datei schreiben.77 

PRINT # Daten in Datei ausgeben.78 

PRINT # USING Formatierte Ausgabe in Datei . 78 

RECALL { REC } Stringfeld aus Datei lesen.78 

STORE { ST ) Stringfeld in Datei ablegen.78 

5.3. DATEI - INFO.79 

_FILE() MSDOS-Handle einer Datei liefern.79 

EOF() Datei auf Dateiende prüfen . 79 

LOCO Filepointerposition liefern.79 

LOFO Dateilänge ermitteln .80 
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5.4. RANDCM - ACCESS - OPERATICMM.80 

FIELD { FIE } Datensatz in Elemente unterteilen.80 

GET # { GE } Datensatz lesen .81 

POT ♦ { PU } Datensatz schreiben.81 

RECORD { RECO } GET#/POT#-Satzzeiger positionieren . 82 

6. PERIPHERIE.84 

6.1. HARDWARE - I/O.84 

INP(PORT) Daten aus Hardware-Port lesen.84 

OUT { OU PORT } Daten in Hardware-Port schreiben.84 

6.2. raUCKER - ANWEISUNGEN 84 

HARDCOPY { HA } Text-Bildschirm auf Drucker ausgeben ... 84 

LLIST { LL ) Prograimlisting ausdrucken .85 

LPOSO Druckkopfpositionermitteln .85 

LPRINT { DPR ) Daten auf Drucker ausgeben . 85 

7. STRUKTUREN UND VERZWEIGUNGEN .88 

7.1. SCHLEIFEN - KONSTRUKTIONEN .88 

DO .. LOOP { DO .. L } Endlosschleife .88 

FOR .. NEXT { F .. N } Zählschleife.89 

REPEAT .. UNTIL { REP .. U } End-bedingte Schleife.89 

WHILE .. WEND { W .. WE } Start-bedingte Schleife.90 

7.2. BEDINGTE VERZWEIGUNGEN.90 

EXIT IF { EX IF ) Bedingter Schleifenabbruch .90 

IF Bedingungsabfrage . 91 

[EI£E] { EL } 'sonst'-Anweisung .91 

(EIÄE IF] { E IF ) Unter-Bedingungsabfrage.91 

ENDIF { EN } Abfrage-Ende.91 

SELECT Auswahl-Bestimmung . 93 

CASE [TO] { CA } Fall-Entscheidung .93 

[CQNT] { CON } Fortsetzungs-Anweisung.93 

[DEFAULT] { DEFA } 'sonst'-Anweisung .93 

ENDSELECT { ENDS ] Abfrage-Ende.93 

7.3. UNTERPROGRAMME UND STRUKTUREN.96 

DEFFN einzeilige Funktion definieren.96 

FUNCTION { FU } mehrzeilige Funktion.97 

RETURN { RET } Wertrückgabe-Anweisung.97 

ENDFUNC {ENDF ) Funktionsende.97 

PROCEDURE { PRO ) Unterprogramm.99 

RETURN { RET } Rücksprung.99 

TYPE { TY } Typenstruktur definieren.100 

ENDTYPE { ENDT } TVpenstruktur-Ende .100 

LOCAL { LOC ) Lokale Variablen deklarieren .105 
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7.4. SPRÖN3E UND VARIABLENÜBERGABE .105 

FN { S } DEFFN-ZFUNCTION-Aufruf.105 

GOSUB { GO oder S ) PROCEDÜRE-Aufruf.106 

GOTO { GOT } unbedingter ^jrung zu einem Label.106 

EXPROC { EXP ) unbedingter Sprung zum Prozedur-Ende .. 107 

ON ... GOSUB bedingte Verzweigung zu Prozeduren_108 

ON BREAK [CONTI [GOSUB] Break-Funktion behandeln.108 

VAR direkte Variablen-Übergabe.109 

7.5. EXTERNE UOTERPROGRAMME UND DJTERRÜFTS. 110 

CALL { CAL 1 Maschinenprogramm aufrufen.110 

C:() lösch.-prog./C-Konvention aufrufen_111 

INTRO MSDOS- oder BIOS-Interrupt aufrufen ... 112 

MONITOR { MON } Breakpoint-Interrupt $3 auslösen.113 

P:() Masch.prog./PASCAL-Konvention aufrufen 113 

7.6. REGISTER - VARIABLEN .114 

_AX, _AH, _AL ('A'ccul AX-Register-Word.114 

_BX, _BH, _BL l'B'ase) BX-Register-Word.114 

_CX, _CH, _CL ('C'ountl CX-Register-Word.114 

_DX, _EH, _DL l'D'ata) DX-Register-Word.114 

_DI Destination-Index-Vtord.114 

_SI Source-Index-Word.114 

_BP Base-Pointer-Word.114 

_FL Flag-Register-Word . 114 

_SP Stack-Pointer-Word .114 

_EAX,_EBX,_ECX,_EDX 386/486er Register-Longs.115 

_EDI,_ESI,_EBP,_EFL,_ESP 386/486er Register-Longs.115 

7.7. AUSFÜHRBARE PROGRAMME .115 

EXBC { EXE ) / EXECO CCM/EXE-Progranm laden/Starten .115 

SHELL ( SH } 'CCMMAND.CCM'-Start/DOS-Befehle .116 

8. DATEN - ORGANISATION .118 

8.1. BEREICHS - DEKLARATIONEN.118 

// Koinnentarbeginn am Ende einer Bef.zeile 118 

/*...’/ Kontnentarkennung innerh.einer Bef.zeile 118 

REM { R oder ' } Konrtientar einfügen .118 

DATA { D } Daten-Speicher.118 

READ { REA } DATA-Werte auslesen .119 

RESTORE { RES } DATA-Zeiger setzen .119 

_DATA interne Variable für DATA-Zeiger.120 

8.2. FELDER UND ARRAYS .120 

ARRAYFILL ( ARR } Feld mit Wert belegen . 120 

DELETE ( DEL ) Einzelelement aus Feld löschen . 121 

DM { DI ) Feld(er) dimensionieren.121 

DIM?() Menge der Feldelemente ermitteln.122 

ERASE { ER ) Feld (er) löschen.122 

INSERT { INS ) Einzelelement in Feld einfügen . 122 
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OPTION BASE { OPT B ) Feld-Basiseletnent bestiirtnen .122 

QSORT { Q } Feld (-Bereich) Quiclc-Sortierung.123 

SSORT { SS } Feld (-Bereich) Shell-Sortierung.123 

8.3. VARIABLEN - DEKLARATION.124 

DEFBIT { DEFBI ) Boolvariable(n) de)tlarieren .124 

DEFBYT { DEFB } IByte-Integervariablen deltlarieren .... 125 

DEFDBL { DEFD } 8^te-Flieg)toiniBvariablen delclarieren . 125 

DEFFLT { DEFFL 1 8Byte-Flie£)commavariablen de)tlarieren . 125 

DEFINT { DEFI } 4^e-lncegervariablen deklarieren_125 

DEFSNG { DEFS ) 4Ei^e-Fließkommavariablen deklarieren . 126 

DEFSTR { DEFST ) Zeichenkettenvariable(n) deklarieren .. 126 

DEFWRD { DEFW } 2Byte-Integervariablen deklarieren _ 126 

8.4. DATEN - ÖMHANDaTJG .126 

BINSO Numerisch => Binär .126 

DECSi) Numerisch => Dezimal.: 126 

HEX$ () Numerisch => Hejodezinal.127 

0CT$() Numerisch => Oktal . 127 

ASCO Textzeichen => ASCll-wert .127 

CHR$ () ASCII => Textzeichen.128 

CVIO 16 Bit-Integerzahl .128 

CVLO 32 Bit-Integerzahl .128 

CVSO lEEE-Single-Realzahl.128 

CVD() lEEE-Double-Realzahl.128 

MKD$() 8-Zeichenstring . 128 

MKI$() 2-Zeichenstring . 128 

MKLSi) 4-Zeichenstring . 128 

MKSS() 4-Zeichenstring . 128 

STR$ () Numerisch -> String.129 

VALO String => Numerisch.132 

VAL?() Anz.wandelbarer Textzeichen ermitteln .133 

9. PROGRAMM - KONTROLLE.136 

9.1. PROGRAMMSTART UND -ENDE.136 

CHAIN { CHAI } Prograitm laden (Autostart) .136 

CONT { CON } Program (nach STOP-Befehl) fortsetzen 136 

EDIT { ED } Programm losenden .136 

END Program beenden .136 

QUIT { QU } Prograimende (Rückkehr zum DOS).137 

RUN { RU } Program starten .137 

STOP Program unterbrechen.138 

SYSTEM { SYST ) Programmende (Rückkehr zum DOS) . 138 

9.2. LÖSCH - OPERATICNEN.138 

CLEAR { CLE } Felder und Variablen löschen . 138 

CLR Einzelvariablen löschen.139 

CLS Bildschirm löschen . 139 

NEW Programmspeicher löschen . 139 

9.3. ZEIT - OPERATICNEN .139 

DATES Systemdatum ermitteln.139 

DATE$= Systemdatum bestimnen.140 
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DELAY { DEL } Prograim-Unterbrechnung (1 Sekunde) ... 140 

PAUSE { PA } Prograrm-Unterbrechnung (1/50 Sekunde) 140 

SETTIME { SEIT ) Uhrzeit und Datum einstellen.140 

TIMES System-Uhrzeit ermitteln.141 

TIME$= System-Uhrzeit bestimmen.141 

TIMER Laufzeit ermitteln. 141 

9.4. FEHLER - BEHANDLUNG . 141 

ERR Fehlercode ermitteln .141 

ERRSO Fehlertext liefern.141 

ERROR { ERR ) Fehler simulieren.142 

FATAL Fehlerart ermitteln . 142 

ON ERROR [GOSUB] Verzweigung bei Fehler.142 

RESUME { RESU } Programm nach ON ERROR GOSUB fortsetzen 143 

9.5. TASTATUR - KONTROLLE .143 

INKEYS Einzelzeichen von Tastatur einiesen ... 143 

KEYGET { K ) auf Taste warten und Code liefern.144 

KEYTEST { KEYT } Tastatur durchlaufend abfragen . 144 

9.6. DEBUGGING . 144 

TRACES aktuelle Befehlszeile liefern . 144 

TROFF { TROF ) Trace-Modus ausschalten.145 

TRQN { TR } Trace-Modus einschalten.145 

TRM) Proc { TR } Trace-Modus in Prozedur lenken . 145 

9.7. DIVERSES .146 

DEFNUM { DEF } Stellen-Begrenzung von Ziffern-PRINTs . 146 

FALSE Unwahr-Konstante.146 

LET { LE } Daten einer Variablen zuweisen .146 

MODE { MOD } Zahlen- und Datumsformat bestimmen .... 147 

SOUND { SO } Klangausgabe.147 

TRUE Vöhr-Konstante.147 

VOID { VO oder ~ } Dummy-Zuweisung.148 

10. TEXT - OPERATIONEN .150 

10.1. STRING - MANIPULATIONEN.150 

MIDS()= Teilstring zuweisen . 150 

MIRRORSO Zeichenkette spiegeln .150 

LSET I LS ) String in String linksbündig einsetzen 150 

RSET { RS ) String in String rechtsbündig einsetzen 151 

TRIMS() Leerzeichen im Strirg löschen . 151 

10.2. STRING - ANALYSE.151 

INSTRO String im String suchen.151 

LEFTSO Linksbündigen Teilstring ermitteln .... 151 

MIDSO beliebigen Teilstring ermitteln . 152 

RIGHTS0 Rechtsbündigen Teilstring ermitteln ... 152 

RINSTRO String im String rückwärts suchen.152 
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10.3. STRING - ARITHMETIK.153 

LEN() Type-/Stringlänge ermitteln . 153 

MAX(S) Größten String ermitteln . 153 

MIN($) Kleinsten String ermitteln . 153 

PRED($) nächstlcleineres ASCII-Zeichen ermitteln 154 

SUCC($) nächstgrößeres ASCII-Zeichen ermitteln 154 

10.4. STRING - FORMATIERUNG . 154 

SPACES0 Leerzeichen-String bilden .154 

STRINGS 0 Mehrfach-Zeichenkette bilden .154 

10.5. STRING - UMWANDLUNG.155 

LCASES() PC-spezifische Umwandlung groß => klein 155 

LCWERS() Buchstabenurawandlung groß => klein .... 155 

UCASESO PC-spezifische Umwandlung klein => groß 155 

UPPERS () Buchstabenuitwandlung klein => groß .... 155 

XLATESO Buchstabenuitwandlung nach freier Tab. . 155 

11. ARITHMETIK.158 

ARITHMETISCHE OPERATOREN .158 

OPERATOREN INCL. ZUWEISUNG .158 

VERGLEICHSOPERATOREN.159 

11.4. LOGISCHE OPERATOREN.159 

AND oder iSc Konjunktion zweier Wahrheitswerte.159 

EQV Äquivalenz zweier Wahrheitswerte.159 

IMP Inplikation zweier Wahrheitswerte . 160 

NOT oder ! Negation eines Wahrheitswertes.160 

OR oder II incl. Disjunktion zweier Wahrheitswerte 160 

XOR oder "" excl. Disjunktion zweier Wahrheitswerte 160 

OPERATOREN - PRIORITÄT .161 

11.6. MATHEMATISCHE GRUNDFUNKTIOIEN.162 

DEC / — Integer-Dekrementierung um 1 .162 

INC / +t Integer-Inkrerentierung um 1 .162 

ADD ( AD } Additionsbefehl .162 

ADDO Integer-Additionsfunktion .162 

DIV Divisionsbefehl . 163 

DIVO Integer-Divisionsfunktion .163 

MUL { MD } Multiplikationsbefehl.163 

MUL() Integer-Multiplikationsfunktion.163 

SUB Subtraktionsbefehl . 163 

SUBI) Integer-Subtraktionsfunktion .164 

11.7. SPEZIELLE ARITHMETIK.164 

ABSO Absolut-Betrag ermitteln.164 

CFLOATO Integerwert in Fließkortmawert wandeln . 164 

CINIO Fließkomnawert in Integerwert wandeln . 164 

EVENO Zahl auf 'gerade' testen.164 

FRAC{) Nachkotnmastellen ermitteln .165 
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MDD() Integer-Madula-FtoJction.165 

0DD{) Zahl auf 'ungerade' testen.165 

SGN() Vorzeichen ermitteln . 165 

11.8. RUNDÜNGSFONKTICNEN . 166 

CEILO auf nächstgröEere Ganzzahl aufrunden .. 166 

FIXO vorzeichen-unahh.auf Ganzzahl runden .. 166 

FLCORl) vorzeichen-abh.auf Ganzzahl abrunden .. 166 

INTO vorzeichen-abh. auf Ganzzahl abrunden . 167 

PREDO nächstkleinere Ganzzahl ermitteln.167 

ROUNDO Rundungs-Funktion. 167 

SIKXO nächstgrößere Ganzzahl ermitteln.167 

TRUNCO vorzeichen-unalii. auf Ganzzahl runden . 167 

11.9. ALGEBRAISCHE FUNKTIONEN.168 

EXP{) E!?)onentialfunktion . 168 

LOG() natürlicher Logarithmus.168 

U3G2() binärer Logarithmus . 168 

LOGIOO dekadischer Logarithmus.169 

SCALEO Skalierungsfunktion . 169 

SQR() Wurzelfunktion.169 

11.10. KCMBINATIONSFUNKTICNEN.169 

CQMBINO Binominal-Koeffizienten ermitteln.169 

FACTO Fakultätsfunktion.170 

PERMUTO Permutationsfunktion (Variation).170 

VARIATÖ Permutationsfunktion (Variation).171 

11.11. VERGLEICHS - OPERATICNEN.171 

MAXO Größten Integer-Wert ermitteln .171 

IMIN() Kleinsten Integer-Wert ermitteln.172 

MAXO Größten Realwert ermitteln.172 

MINO Kleinsten Realwert ermitteln . 172 

11.12. BEREICHSÜBERPRÜFUNG 172 

BOUNDO Prüf.auf Bereichsüberschreitung . 172 

BOÜNDBO Prüf.auf Absolut-Byte (0 bis 255). 173 

BOUNDC() Prüf.auf Cardinal-Word (0 bis 65535) .. 173 

BOUNDWO Prüf.auf Signed-Word(-32768 bis +32767) 173 

11.13. ZUFALLSWERT - ERZEUGUNG.173 

RANDO 16Bit-Integer-Zufallszahl.173 

RANDCMO 32Bit-Integer-Zufallszahl. 174 

RANDCMIZE { RA ) Zufallszahlengenerator-Init . 174 

RNDO DezinBlstellen-Zufallszahl.174 

12. TRIGONCMETRIE.176 

12.1. GRADUMWÄNDLUNG / PI .176 

DEGO Umwandlung von Bogenmaß in Grad .176 

PI Kreiszahl .176 

RADO Unwandlung von Grad in Bogenrtaß .176 
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12.2. PARALLELE TRIGONOdRIE .176 

ACOSd Arcus-Cosinus.176 

ASINO Arcus-Sinus.177 

ATANO Arcus-Tangens.177 

ATNO Arcus-Tangens.177 

COsj) genaue Cosinus-Funktion . 177 

COSQO schnelle Cosinus-Funktion .178 

SIND genaue Sinus-Funktion.178 

SIN2() schnelle Sinus-Funktion.178 

TANO Tangens .178 

12.3. HYPERBOLISCHE TRIGONOMETRIE .179 

ARCOSHO Hyperbel-Area-Cosinus.179 

ARSINHO Hyperbel-Area-Sinus.179 

ARTANHO Hyperbel-Area-Tangens.179 

COSHO Ift^rbel-Cosinus .180 

SINH{) I^^rbel-Sinus .180 

TANH() Hyperbel-Tangens . 180 

13. MATRIZEN - MATHEMATIK.182 

13.1. MATRIZEN - ORGANISATICM.183 

MAT ABS { M ABS } Inhalt der hßitrix absolut setzen.183 

MAT BASE { M BASE } Start-Index für MAT-Befehle setzen _ 183 

MAT CLR (MC) Inhalt einer Ifetrix löschen .183 

MAT NEG { M NEG ) Matrizen-Inhalt negieren . 183 

MAT ONE { M ONE } Einheitsrratrix erzeugen.184 

MAT SET IMS) Matrix mit einem Wert füllen .184 

MAT TRANS | M T } tfetrix transponieren.184 

MAT TRI { M TRI } Dreiecksmatrix erzeugen.185 

13.2. MATRIZEN - OPERATICNEN.186 

MAT CPY { M CP } lötrizen (-Ausschnitt) kopieren.186 

MAT INPOT { M INPUT ) lötrizen-lnhalt aus Datei lesen.187 

MAT PRINT (MP) lötrizen-Inhalt ausgeben.188 

MAT READ { M READ ) Matrizen-Inhalt aus DATAs lesen . 188 

MAT XCPY (MX) Matrix transponiert kopieren .188 

13.3. MATRIZEN - ARIIRMETIK.189 

MAT ADD Efetrizen-Inhalte addieren . 189 

MAT DET { M DET ) tfetrizen-Determinante genau berechnen . 189 

MAT INV Eötrizen-Inverse berechnen . 190 

MAT MUL {MM} lötrizen und Vektoren multiplizieren .. 191 

MAT NORM { M NORM } zeilen-Zspaltenweise normieren.194 

MAT QDET { M QDET } Determinante schnell berechnen.195 

MAT RANG { M RANG ) Rang einer Ifetrix ermitteln . 195 

MAT RANK { M RANK } Rang einer Matrix ermitteln . 196 

MAT SUB Matrizen-Inhalte subtrahieren.196 

14. SPEICHERVERWALTÖNG UND -ZUGRIFFE . 198 

14.1. BIT - ARITHMETK .198 

BCHGO Einzelbit umkehren (an/aus) .198 

BCLRO Einzelbit löschen .198 
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BSBTO Einzelbit setzen.198 

BTSTO Einzelbit auf an/aus testen.198 

AND() / AND Konjunktion zweier Integerwerte ...... 199 

EQVO / B2V Äquivalenz zweier Integerwerte .199 

IMP{) / IMP Inplikation zweier Integerwerte .200 

NOT Negation eines Integerwertes .200 

OR() / OR incl. Disjunktion zweier Integerwerte . 200 

XORO / XOR excl. Disjunktion zweier Integerwerte . 201 

SHL() oder « Bits links verschieben.201 

SHR() oder » Bits rechts verschieben.202 

ROL{) Bits links rotieren .203 

RORO Bits rechts rotieren .203 

14.2. BYTE WORD - UND LONG - OPERATICNEN.204 

BYTEO LOW-Byte eines Wertes absolut liefern . 204 

CARD{) LOW-Word eines wertes absolut liefern . 204 

HICARDO HI-Word eines Wertes absolut liefern .. 204 

HIWDRDO Hl-Word eines wertes signed liefern ... 204 

LOCARDd LOW-Word eines Wertes absolut liefern . 205 

LOHORDI) LOW-Word eines Wertes signed liefern .. 205 

ÜSHDRT{) LCW-Word eines Wertes absolut liefern . 205 

UWORDO LCW-Word eines Wertes absolut liefern . 205 

MAKEIDNGO Unwandeln zweier Werte in ein Longword 205 

SHORT 0 Wert auf 32Bit erweitern.206 

SWAPO HI-und LCW-Word eines Longs tauschen .. 206 

WORD!) Wert auf 32Bit erweitern.206 

14.3. SPEICHER - OPERATIONEN.206 

BYTEO / BYTE{)= 1 Byte absolut lesen / schreiben.206 

CARDO / CARD{)= 2 Byte absolut lesen / schreiben.207 

CHAR{) / CHAR{}= 'C'-Text lesen / schreiben.207 

DOÖBLEO / DOUBLE{}= lEEE-Double lesen / schreiben . 207 

DPEEKO 2 Byte signed lesen .207 

DPOKE { DP ) 2 Byte signed schreiben.208 

INTO / INr{)= 2 ^te signed lesen / schreiben .208 

LONGO / LONG{}= 4 ^te signed lesen / schreiben .208 

LPEEKO 4 Byte signed lesen .208 

LPOKE { LP ) 4 Byte signed schreiben.209 

PEEKO 1 Byte absolut lesen .209 

POKE { PO ) 1 Byte absolut schreiben.209 

SHORTO / SHORTO= 2 Byte signed lesen / schreiben .209 

SINGLEO / SlN2LEO= lEEE-Single lesen / schreiben .209 

WORDO / W0RD{}= 2 Byte Signed lesen / schreiben . 210 

USHORTO / USH3RTO=: 2 ^te absolut lesen / schreiben.210 

UWDRD(} / 0W3RD{}= 2 ^te absolut lesen / schreiben.210 

14.4. BLOCKBEZOGENE OPERATIONEN.211 

BMOVE { BM ) Speicherblock kopieren.211 

PEEKSI) ^icherblock in Stringvar. kopieren .. 211 

POKES Stringvar.-Inhalt in Speicher kopieren 211 

MEMAND { MEWA } Konjunktion zweier Speicherblöcke.212 

MEMDR { MiMD ) incl. Disjunktion zweier Speicherblöcke 212 

MEMXOR { MEMX ) excl. Disjunktion zweier Speicherblöcke 212 

MEMBFILL { MEM ) Speicherbereich mit Bytewert füllen ... 212 

MEMLFILL { MEML ) Speicherbereich mit Longwert füllen ... 213 

MEMWFILL { MEMW ) ^icherbereich mit Wordwert füllen ... 213 
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14.5. SPEICHER - ORGANISATION.213 

MAUOCO System-Speicher-Reservierung .213 

MFREEO MALLOC-Speicher wieder freigeben.214 

MSHRINKO MALLOC-^icher einschränken .214 

_PSP Programmsegment-Präfix-Adresse liefern 214 

BASEPAGE Progranmsegment-Präfix-Adresse liefern 216 

FREEFONT { FR } externen Font aus dem Speicher löschen 216 

LOADFONT { LOADF ) externen Font in den Speicher laden ... 216 

FREI) freien Segmentanteil ermitteln.217 

STACKSIZE { STA } Größe des GFA-Stacks bestinmen.217 

14.6. ZEIGEROPERATIOJEN.219 

ARRPTRO { • ) Variablen-ZDescriptor-Adresse liefern .219 

SWAP { SW ) Variablen/Felder/Pointer tauschen.219 

VARPTRO {V: } Variablen-Adresse ermitteln .220 

14.7. EXPANDED MEMORY - OPERATIONEN (EMS) .220 

EAVAIL { EA ) Anzahl freier EMS-Seiten ermitteln _ 220 

EDIR Ersatz-EMS in einer Datei einrichten .. 221 

EGET { EG } freie EMS-Daten-Copy in das DOS-RAM ... 221 

EKILL { EK } EMS-Daten löschen .222 

EPOP { EPO ) EMS-Daten-Move (lifo) in das DOS-RAM .. 222 

EPUSH { EP ) DOS-RAM-Daten-Move (lifo) in das EMS ..223 

EMEM3ET { EMEMG ) freie EMS-Block-Copy in das DOS-RAM ... 224 

EMEMPOP { EMEMPO ) EMS-Block-Mbve in das DOS-RAM.225 

EMEMPUSH { EM ) DOS-RAM-Block-Copy (lifo) in das EMS .. 225 

EMSGET { EMS } Screen-(Ausschnitt-)Copy in das EMS ... 226 

EMSPUT { EMSP ) EMS-(Ausschnitt-)Copy in die Screen ... 226 

EPARLOAD { EPARL } EMS-Konfiguration aus Datei laden . 227 

EPARSAVE { EPA ) EMS-Konfiguration in Eatei speichern .. 227 

15. GRAFIK.230 

15.1. GRAFIK - DEFINITIONEN.230 

BODNDARY { BOU ) Rand bei 'P'-Grafikltefehlen an/aus ....230 

COLOR { CO ) Zeichenfarloe best irrmen.230 

DEFFILL { DEFF } Füllmuster bestimmen.232 

DEFLINE { DEFL ) Linien-Attrribute bestimmen . 232 

DEFTEXT { DEFT ) Fett-Text an/aus .234 

GRAPHMODE { G } Grafiknodus bestitrmen.234 

SETCOLOR { SET } Farbregister einstellen.235 

SYSCOL { SY } Farbe für Menüs, Fenster etc. loestinnen 235 

15.2. GRAFIKBEFEHLE.236 

BOX { B } Linien-Rechteck zeichnen.236 

CIRCLE { CI } Linien-Kreis(-Bogen) zeichnen.236 

CURVE { CU } 4Punkt-'Bezier'-Kurve zeichnen.237 

DRAW { ER } Punkte zeichnen und verbinden.237 

DRAW "Text” { DR ) Plotter (-'Turtle')-Grafik zeichnen ....238 

DRAWO Plotter(-'Turtle')-Attribute ermitteln 239 

ELLIPSE { ELL } Linien-Ellipse(n-Bogen) zeichnen.239 

FIEL { FI ) Flächen mit Muster füllen .239 

LINE { LI ) Linie zeichnen.240 

PBOX { PB ) gefüllt. Rechteck zeichnen .240 
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PCIRCLE { PC ) gefüllt. Kreis(-Ausschnitt) zeichnen .. 240 

PELLIPSE { PE } gefüllt. Ellipse(n-Ausschnitt) zeichnen 241 

PLOT { PL } einzelnen Bildschimpunkt zeichnen .... 241 

POLYFILL { POLYF } gefülltes Vieleck zeichnen.241 

POLYLINE { POL } Linien-Vieleck zeichnen.242 

PRBOX { PRB ) gefülltes Rundeck zeichnen.242 

PSET { PS } Punkt zeichnen incl. Farbltestiititiing ... 242 

RBOX { RB } Linien-Rundeck zeichnen.242 

SETDRAW { SETD ) DRAW-'Turtle' positionieren.242 

TEXT { T } Text im Grafikinodus ausgeloen.243 

15.3. GRAFIKBILDSCHIRM - OPERATICNEN .244 

_ADAP aktuellen Grafik-Adapter ermitteln .... 244 

_C mögliche Farl>Anzahl ermitteln . 244 

_MD akt.SCREEN-Mxlus ermitteln.244 

_X akt.Bildschirm-/Fensterbreite ermitteln 245 

_Y akt.Bildschirm-/Fenster-Höhe ermitteln 245 

CLIP { CLI } GrafikausgabebereichZ-Nullpkt.bestimmen 245 

CLIP OFF { CLI 0 } Grafik-Clipping aufheben.246 

GETSIZEO Speicherbedarf für GET-Befehl ermitteln 246 

POINT 0 Farbwert eines Bildpunktes ermitteln .. 247 

GET { GE } Grafik-Bildschirmbereich speichern_247 

PUT { PU ) Grafik-Bildschirmbereich setzen .247 

RC_INTERSECT() Überlappung zweier Rechtecke ermitteln 248 

SCREEN { SC ) Bildschirm-ttxlus bestimmen.248 

16. MAUS, DIALOGE, MENÜS, FENSTER UND EREK3JISSE.252 

16.1. MAUS - BEFEHLE.252 

DEFMOUSE { DEFM3 } löusform bestinmen.252 

HIDEM { HI } Mauszeiger ausschalten.254 

M3USE { MO } Maus- und Shift-Status gesamt ermitteln 254 

MDÜSEX Ifeus-X-Koordinate ermitteln.255 

MDUSEY >öus-Y-Koordinate ermitteln.255 

MOUSEK Maustasten-Status ermitteln . 255 

SHCMM { SHCW ) Mauszeiger anschalten .256 

16.2. DIALOG - BEFEHLE .256 

ALERT ( AL ) Hinweis-Box erzeugen .256 

FILESELBOT { FILESE ) Datei auswählen.257 

POPUPO Pop-Up-Menü erzeugen .258 

DRAGBOX Schiebebox produzieren.260 

RUBBERBOX Gummibard-Box (Lasso) produzieren.261 

16.3. EREiailS - ÜBERWACHUNG.261 

GETEVENT { GETE } wartende Event-Kontrolle ohne Verzwg. . 261 

KILLEVENT MENU()-Ereignispuffer löschen . 262 

ON MENU Event-Kontrolle mit Verzweigung . 262 

PEEKEVENT ( PEEKE } Event-Kontrolle ohne Verzweigung . 263 

16.4. EREIGNIS - VERWALTUNG.263 

MENUO allgemeiner Ereignispuffer.263 

ON MENU GOSUB Proc.-Bestinriung (Menü-Event) .266 
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ON MENU BUTTON GOSÜB Proc.-Bestimmung (Mausknopf-Event) _266 

ON MENU KEY C30SUB Proc.-Bestiimung (Tastatur-Event) .267 

ON MENU MESSAGE GOSUB Proc.-Bestiimung (Fenster-Event) . 268 

16.5. MENÜ - PROGRAMMIERUNG.269 

MENU MenütextSO Pulldown-Menü erstellen.269 

MENU KILL Pulldown-Menü deaktivieren . 272 

16.6. FENSTER - PROGRAMMIERUNG .272 

CLEARW # Fenster-Inhalt löschen.273 

CLIP # { CLI } Ausgabe auf Fensterloereich begrenzen .. 273 

CLOSEW # { CL W ) Fenster schließen . 274 

FULLW { FüL ) Fenster auf Bildschirmgröße iraximieren 274 

GETFIRST # { GETF ) Rechteckliste initialisieren . 274 

GETNEXT # { GETN } nächstes Listen-Rechteck ermitteln _ 275 

INFCW # { INF } Fenster-Informationszeile bestinmen ... 276 

MOVFW # ( MOV } Fenster bewegen .276 

OPENW # { 0 W } Fenster öffnen.277 

SIZEW # { SIZ } neue Fenster-Größe bestimmen . 278 

TITLEW # { TIT ) Fenster-Titelzeile bestinmen . 278 

TOW # { TO ) Fenster-Parameter setzen und aktivieren 279 

WIN # { WI ) Fenster-Parameter setzen.279 

WINDFIND { WINDF ) Fensternuirmer ermitteln.279 

WINDGET { WINDG ) Fenster-Parameter gesamt lesen.280 

WIND_GET() Fenster-Parameter separat lesen.281 

WINDSET { WINDS ) Fenster-Parameter ändern . 281 
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Syntaxliste 


ANHANG F. 'SYNTAXLISTE' 


' [Kommentar]. 118 

/‘[Kommentar]*/ . 118 

// [Kommentar] . 118 

Var=_ADAP. 244 

Var=_AX. 114 

_AX=Wordwert. 114 

Var=_C . 244 

_DATA=Adresse Var=_DATA. 120 

Var=_DI. 114 

_DI=Wordwert. 114 

Var=_EAX. 115 

_EAX=Wert. 115 

Var=_FILE(Kanal) . 79 

Var=_MD. 244 

Adressvar=_PSP . 214 

Var=_TS. 57 

Var=_X. 245 

Var=_Y.245 

~C:Adressvarl [(Parameterliste)] . 111 

-Funlction (). 148 

~INTR(Num[,_AH=Unterfun)ct.,Reg=Wert,.] . 112 

-P:Adressvar% ([Parameterliste]) . 113 

Var++ . 162 

Var=*Feld(). 219 

Var=*Var. 219 

Var=Wert«Bits . 201 

Var=Wert>>Bits . 202 

Var=ABS(Arg) . 164 

Radian=ACOS(Cosinus) . 176 

ADD Var,Wert. 162 

Var=ADD(Wertl,Wert2) . 162 

ALERT,Icon,Bx_txt$,Button,Bu_txt$,Var . 256 

Argl AND Arg2. 159 

Var=Wertl AND Wert2. 199 

Var=AND(Wertl,Wert2) . 199 

Radian=ARCOSH(Cosinus) . 179 

Argl && Arg2. 159 

Argl Arg2. 160 

Argl I I Arg2. 160 

ARRAYFILL Feld(),Wert. 120 

Var=ARRPTR(Feld() ) . 219 

Var=ARRPTR(Var) . 219 

Radian=ARSINH(Sinus) . 179 

Radian::ARTANH (Tangens). 179 
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Var=ASC( "Zeichen" ) .127 

Radian=ASIN(Sinus) .177 

Radian^ATAN(Tangens) .177 

Adressvar=BASEPAGE . 216 

Var=BCHG(Wert,Bit) .198 

Var=BCLR(Wert,Bit) . 198 

BGET #Kanal,Ziel,Anzahl . 77 

Var$=BIN$ (Expr [.Stellen]).126 

BLOAD "Dateiname" ,Ziel.65 

BMOVE Quell,Ziel,Bytes . 211 

Var=BOUND(Wert,Minimum,Maximum) . 172 

BOUNDARY Flag,Vcol,Hcol . 230 

Var=BOUNDB(Wert).173 

Var=BOUNDB(Wert).173 

Var=BOUNDW(Wert).173 

BOX X_links,Y_oben,X_rechts,Y_unten.236 

BPUT #Kanal,Quell,Anzahl.77 

BSAVE " Dateiname ", Quell, Bytes .65 

Var=BSET(Wert,Bit) . 198 

Var=BTST(Wert,Bit) . 198 

Var=BYTE(Wert) . 204 

BYTE{Adresse) =Wert ....206 

Var=BYTE{Adresse} . 206 

Var=C:Adressvar% [(Parameterliste)] .111 

CALL (Adresse) [(Parameterliste)] .110 

CALL Adressvar% [(Parameterliste)] . 110 

Var=CARD(Wert) . 204 

CARD{Adresse}=Wert . 207 

Var=CARD{Adresse} . 207 

CASE Constl [TO Const2 [,[..] TO [..]]] .93 

CASE ELSE.93 

Var-CEIL(Arg) . 166 

Var=CFLOAT(Arg) . 164 

CHAIN "Programmname" .136 

CHAR{Adresse} = "Text" .207 

Var$:;CHAR{Adresse} .207 

CHDIR "Verzeichnis" . 69 

CHDRIVE Laufwerlc CHDRIVE Pfad$ .70 

Var$=CHR$ (Wert).128 

Var=CINT(Arg) . 164 

CIRCLE X_mitte,Y_mitte,Radius [,Sw,Ew] .236 

CLEAR.138 

CLEARW [#]Nummer.273 

CLIP #Nummer.273 

CLIP #Nummer [OFFSET X,Y] .245 

CLIP OFF .246 
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CLIP OFFSET X,Y . 245 

CLIP Xli.Yob TO Xre,Yun [OFFSET X,Y] . 245 

CLIP Xli,Yob,Breite,Höhe [OFFSET X,Y] . 245 

CLOSE [#Kanal] . 74 

CLOSEW [#[Nummer . 274 

CLR Var [,Var%,Var$, .. .]. 139 

CLS . 139 

COLOR Vcol [,Hcol] . 230 

Var=COMBIN(Menge,Teilmenge) . 169 

CONT . 13 6 

CONT . 93 

Var=COS(Bogenmaß) . 177 

Var=COS(RAD(Gradwin)cel)). 177 

Var=COSH(Bogenmaß) . 180 

Var=COSH(RAD(Gradwinlcel)) . 180 

Var=COSQ (DEG(Bogenmaß)). 178 

Var=COSQ(Gradwin)cel) . 17 8 

Var=CRSCOL. 54 

Var=CRSLIN. 54 

CURVE Sx,Sy,Mxl,Myl,Mx2,My2,Ex,Ey. 237 

DATA [num.Daten[,['']Textdaten[''],..1] _ 118 

Var$=DATE$. 13 9 

DATE$=''Datum-String" . 140 

DEC Var Var--. 162 

Var$=DEC$(Expr[,Stellen]) .126 

DEFAULT. 93 

DEFBIT Define$ . 124 

DEFBYT Define$ . 125 

DEFDBL Define$ . 125 

DEFFILL Muster$ . 232 

DEFFILL Stil. 232 

DEFFLT Define$ . 125 

DEFFN Name [ (Var, [Var2 ,...])] =Expr. 96 

DEFINT Define$ . 125 

DEFLINE [Stil], [Dic)c] , [Ec)cfrm], [Endfrm] ....232 

DEFMOUSE Adr%. 252 

DEFMOUSE Form. 252 

DEFNUM Stelle.-. 146 

DEFSNG Define$ . 126 

DEFSTR Define$ . 126 

DEFTEXT [?],Art,[?],[?],[?] . 234 

DEFWRD Define$ . 126 

Grad=DEG(ACOS(Cosinus)). 176 

Grad=DEG(ARCOSH(Cosinus)) .179 

Grad=DEG(ARSINH(Sinus) ). 179 

Grad=DEG(ARTANH(Tangens)) .179 

Grad=DEG(ASIN(Sinus)) . 177 
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Grad=DEG{ATAN(Tangens)) . 177 

Grad=DEG(ATN(Tangens)) . 177 

Radian=DEG(ATN(Tangens)) . 177 

Grad=DEG(Bogenmaß) .176 

DELAY Se)cunden.140 

DELETE Feld$(Index) .121 

DELETE Feld(Index) . 121 

Var=DFREE (Laufwer)c) .65 

DIM Fldl(Dl[,D2,.])[,Fld2(Dl[,D2,.]).] . 121 

Var=DIM? (FeldO ).122 

DIR ["Pfad"! [TO "Datei"].70 

Var$=DIR$ (Laufwer)c) .70 

DIV Var,Wert.163 

Var=DIV(Wertl,Wert2) . 163 

DO.88 

LOOP 

DO [WHILE Bedingung] [UNTIL Bedingung] . 88 

LOOP [WHILE Bedingung] [UNTIL Bedingung] 

DOüBLE{Adresse} =Realwert.207 

Realvar=DOUBLE{Adresse} . 207 

Var=DPEEK(Adresse) . 207 

DPOKE Adresse,Wert . 208 

DRAGBOX X,Y,B,H[,Mx,My,Mb,Mh],Ex&,Ey&. 260 

DRAW Def$ [ ,Const [, "Def "[ ,Var [,...]]] ].238 

DRAW TO Xpos, Ypos .237 

DRAW XI, Y1 [TO X2,Y2 [TO X3 , Y3 . . . ] ].237 

Var=DRAW( Index).239 

EAVAIL Var.220 

EDIR '' [Pfadname] " .221 

EDIT.136 

EGET Var:Indx[,Fld():lndx,... 

...Var" 'Nam'',Fld():''Nam'',..] .221 

EKILL [Anzahl] EKILL "Name".222 

ELLIPSE Xmit,Ymit,Xrad,Yrad [,Sw,Ew] . 239 

ELSE IF Bedingung .91 

ELSE.91 

EMEMGET Ziel,Bytes ["'Name"] .224 

EMEMGET Ziel,Bytes [:Index].224 

EMEMPOP Ziel,Bytes .225 

EMEMPUSH Quell,Bytes ["'Name"] .225 

EMSGET X_lin]cs,Y_oben,X_rechts,Y_unten... 

...[:''Name''] . 226 
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EMSPUT X_links,Y_oben[; "Name" ] . 22 6 

END . 13 6 

ENDFUNC. 97 

ENDIF . 91 

ENDSELECT. 93 

ENDSWITCH. 93 

ENDTYPE. 100 

Var=EOF(#Kanal) . 79 

EPARLOAD "Dateiname" . 227 

EPARSAVE "Dateiname" . 227 

EPOP Var [, Var$, Feld{), Feld$ (),... ].222 

EPUSH Var[:''Nam''] [,Var$[:''Nam' 

. .FldO [:' 'Nam' ' ] ,Fld$ () [: "Nam" ], . ] ... 223 

Argl EQV Arg2. 159 

Var=Wertl EQV Wert2. 199 

Var=EQV(Wertl,Wert2) . 199 

ERASE FeldlO [,Feld2() [,...]] . 122 

Var=ERR. 141 

Var$=ERR$(Index) . 141 

ERROR Fehlernummer. 142 

VarzEVENlArg). 164 

EXEC ''Progname'',''Kommandozeile'' . 115 

Var=EXEC(''Progname'',''[Komm.zeile]''). 115 

Var^EXIST(Dateiname) . 65 

EXIT IF Bedingung. 90 

Var=EXP(Arg). 168 

EXPROC. 107 

Var=FACT(Menge) . 170 

Var=FALSE. 146 

Var=FATAL. 142 

Var=FGETDTA(). 66 

FIELD #Kan,Anz AS Varl$[,Anz AS Var2$,..] ... 80 

FIELD #Kan,Anz AT{Adl)[,Anz AT(Ad2),..] . 80 

FILES ["Pfad"] [TO "Datei''] . 71 

FILESELECT Pfad$,Auswahl$,Backvar$. 257 

FIEL Xpos,Ypos [,Farbe]. 239 

Var=FIX(Arg) . 166 

Var=FN Funktionsname[(Pl,P2%,P3$,..)] . 105 

FOR Zaehl=Anf TO[DOWNTO] End [STEP Stp] . 89 

NEXT Zaehl 

FORM INPUT Anzahl AS Var$ . 46 

FORM INPUT Anzahl,Var$. 46 

Var^FRAC (Arg). 165 

Var=FRE([Dummy]) . 217 
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FREEFONT .216 

~FSETDTA(Adresse) . 66 

Var=FSFIRST(Pfad$, Attribut).67 

Var=FSNEXT() . 67 

FULLW [#lNuinmer.274 

FUNCTION Name [(Varl,Var2%,Var3$,...)] .97 

RETURN Back 
ENDFUNC 

GET X_li,Y_ob,X_re,Y_un,Var$ . 247 

GET [#]Kanal [,Satznummer] . 81 

GETEVENT .261 

GETFIRST [#]Nummer,Xp&,Yp&,Br&,Ho&.274 

GETNEXT Xp&,Yp&,Br&,Ho& . 275 

Var=GETSIZE(X_li,Y_ob,X_re,Y_un) . 246 

GOSUB Prozedurname [(PI, P2%, P3$, ...)] .106 

GOTO Label.106 

GRAPHMODE Modus.234 

HARDCOPY .84 

Var$-HEX$(Expr [.Stellen]).127 

Var=HICARD(Wert).204 

HIDEM.254 

Var-HIWORD(Wert) . 204 

HTAB Spalte.55 

IF Bedingungl [THEN] . 91 


[ELSE IF Bedingung2] 
[ELSE] 

ENDIF 


Var=IMAX(Exprl,Expr2 [,Expr3,...]) .171 

Var=IMIN(Exprl,Expr2 [,Expr3,...]) .172 

Argl IMP Arg2.160 

Var=Wertl IMP Wert2 .200 

Var=IMP(Wertl,Wert2) . 200 

INC Var .162 

INFOW [#]Nummer, ''Text'' .276 

Longvar=INP%(PORT Nr) . 84 

Wordvar=INP&(PORT Nr) . 84 

Var=INP(#Kanal).77 

Bytevar = INP(PORT Nr) .84 

INPUT #Kanal,Var [,Var2,...] . 46 
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INPUT ["Text";,] Var [,Var2,...]. 46 

Var$=INPUT$(Anzahl [,»Kanal]) . 48 

Bytevar=INP|(PORT Nr) . 84 

INSERT Feld$(Index) = "Text" . 122 

INSERT Feld(lndex) =Wert. 122 

Var=INSTR(Text$,Such$ [,Start] ) . 151 

Var=INSTR([Start,] Text$,Such$) . 151 

VarrlNT(Arg) . 166 

Var=INT(Arg) . 167 

INT{Adresse}=Wert . 208 

Var=INT{Adresse} . 208 

KEYGET TasteS. 144 

KEYTEST Tasten . 144 

KILL "Dateiname" . 67 

KILLEVENT. 262 


Var$=LCASE$(Quell$) . 155 

Var$=LEFT$(Quells [,Anzahl]) . 151 

Var=LEN(Typenname:) . 153 

Var=LEN(Var$). 153 

Var=LEN(Variablenname.) . 153 

LET Var$=' 'Text' ' . 146 

LET Var=Wert. 146 

LINE INPUT »Kanal, Var$ [Var2$,...]. 48 

LINE INPUT ["Text";,] Var$ [Var2$,..] . 48 

LINE Xposl,Yposl,Xpos2,Xpos2 . 240 

LIST [''Programmname''] . 68 

LLIST [''Dateiname''] . 85 

LOAD ''Programmname'' . 68 

LOADFONT ''Fontdatei" . 216 

Var=LOC(»Kanal) . 79 

LOCAL var [ ,var2%, var3$, .. . ] . 105 

LOCAL var=wert[,v2%=wert,v3$=''Txt" ,..] ... 105 

Var=LOCARD(Wert) . 205 

LOCATE S,Z. 55 

LOCAXY S,Z. 55 

LOCAYX Z,S. 55 

Var=LOF(»Kanal) . 80 

Var=LOG(Arg) . 168 

Var=LOG(Arg) . 169 

Var=LOG2 (Arg). 168 

LONG{Adresse}=Wert . 208 

Var=LONG(Adresse} . 208 

LOOP [WHILE Beding.] [UNTIL Beding.] . 88 

Var$=LOWER$(QuellS) . 155 

Var=LOWORD(Wert) . 205 

Var=LPEEK(Adresse) . 208 
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LPOKE Adresse,Wert . 209 

Var;:LPOS (Dummy).85 

LPRINT ''Text''[[;,']Var[;,'jExpr..] _ 85 

LSET Ziel$=Quell$ .150 

Var=MAKELONG(Hiword, Loword).205 

Adressvar=MALLOC(Anzahl) . 213 

MAT ABS FeldO.183 

MAT ADD Quellziel0 ,Quell2 0 .189 

MAT ADD Quellziel 0 ,Wert.189 

MAT ADD ZielO , Quelll ()+Quell2 () .189 

MAT BASE 0 .183 

MAT BASE 1 .183 

MAT CLR FeldO.183 

MAT CPY Ziel()=Quell() [,z3,s3] . 186 

MAT CPY Ziel{)=Quell(z2,s2) [,z3,s3] . 186 

MAT CPY Ziel(zl,sl)=Quell{) [,z3,s3] . 186 

MAT CPY Ziel(zl,sl)=Quell(z2,s2)[,z3,s3] ... 186 

MAT DET Var=Feld() [,Anzahl] .189 

MAT DET Var=Feld(zx,sx),Anzahl . 189 

MAT INPUT »Kanal, FeldO .187 

MAT INV Ziel 0 ,Quell 0 .190 

MAT MUL FeldO , Wert .191 

MAT MUL Scal=Z_velc()*Mat()*S_vek() .191 

MAT MUL Scal = Z_vektor () *S_vektor 0.191 

MAT MUL Zielmatrix ()=Matl()*Mat2 0.191 

MAT MUL Zielmatrix 0 =S_vek0 *Z_vek 0.191 

MAT NEG FeldO.183 

MAT ONE FeldO.184 

MAT PRINT #Kan,FeldO [,Stellen,Real] . 188 

MAT PRINT FeldO [,Stellen,Realteil] . 188 

MAT QDET Var=FeldO [,Anzahl] .195 

MAT QDET Var=Feld(zx,sx),Anzahl . 195 

MAT RANG Var=Feld() [,Anzahl] .195 

MAT RANG Var=Feld(zx,sx),Anzahl . 195 

MAT RANK Var=FeldO [,Anzahl] .196 

MAT RANK Var=Feld(zx,sx),Anzahl . 196 

MAT READ FeldO.188 

MAT SET Feld()=Wert .184 

MAT SUB Quellziel 0 ,Quell2 0 .196 

MAT SUB Quellziel 0 , Wert.196 

MAT SUB ZielO, Quelll 0-Quell2() .196 

MAT TRANS Feld]).184 

MAT TRANS Ziel()=Quell() . 184 

MAT TRI FeldO,Modus .185 

MAT XCPY Z([zl,sl])=Q([z2,s2])[,z3,s3] . 188 

Var$=MAX(Exprl$,Expr2$ [,Expr3$,...]).153 

Var=MAX(Exprl,Expr2 [,Expr3,...]) .172 
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MEMAND Quell, Ziel,Anzahl. 212 

MEMBFILL Ziel,Anzahl,Wert . 212 

MEMLFILL Ziel,Anzahl,Wert . 213 

MEMOR Quell, Ziel, Anzahl. 212 

MEMWFILL Ziel,Anzahl,Wert . 213 

MEMXOR Quell, Ziel, Anzahl. 212 

MENU KILL.272 

MENU Menütext$() . 269 

Var=MENU(Index) . 263 

Var=MFREE(Adresse) . 214 

Var$=MID$(Quell$,Start [,Anzahl]). 152 

MID$ (Text$, Start [, Anzahl]) =Quell$.150 

Var$=:MIN(Exprl$,Expr2$ [, Expr3$, . . . ] ) . 153 

Var=MIN(Exprl,Expr2 [,Expr3,...]). 172 

Var$=MIRROR$(Quell$) . 150 

MKDIR "Ordner" . 71 

Var=MOD{Wertl,Wert2) . 165 

MODE Modus. 147 

MONITOR [(Parameter)] . 113 

MOUSE Xvar&,Yvar&,Bvar& [,Shiftvar&] . 254 

Var;:MOUSEK. 255 

Var=MOUSEX. 255 

Var=MOUSEY. 255 

MOVEW [#]Nummer,Xp,Yp. 276 

Var=MSHRlNK(Adresse,Anzahl) . 214 

MUL Var,Wert.. 163 

Var=MUL(Wertl,Wert2) . 163 

NAME "Name_alt" AS "Name.neu" . 67 

NEW . 139 

NEXT Zaehl. 89 

NOT Arg ! Arg. 160 

NOT Wert. 200 

Var$=OCT$(Expr [,Stellen]) . 127 

Var=ODD(Arg) . 165 

ON BREAK. 108 

ON BREAK CONT. 108 

ON BREAK [GOSUB] Prozedur . 108 

ON ERROR. 142 

ON ERROR [GOSUB] Prozedur . 142 

ON MENU. 262 

ON MENU BUTTON GOSUB Prozedurname. 266 

ON MENU GOSUB Prozedurname . 266 

ON MENU KEY GOSUB Prozedurname. 267 

ON MENU MESSAGE GOSUB Prozedurname.268 

ON Wert GOSUB Procl [,Proc2,Proc3,...] . 108 


OPEN "Mod" , #Kanal, "Datname" [, Satzlänge] . 74 
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OPENW [#]Numiner [,Xp,Yp,Br,Ho,Attrib].277 

OPTION BASE 0.122 

OPTION BASE 1.122 

Argl OR Arg2.160 

Var=Wertl OR Wert2 . 200 

Var=OR(Wertl,Wert2) .200 

OTHERWISE.93 

OUT #Kanal,Bytel [,Byte2 [,...]] .77 

OUT PORT Nr, Bytewert .84 

OUT% #Kanal,Longl [,Long2 [,...]] .77 

OUT% PORT Nr,Longwert.84 

OUT& #Kanal,Wordl [,Word2 [,...]] .77 

OUT& PORT Nr, Wortwert.84 

OUTI PORT Nr, Bytewert.84 

Var=P:Adressvar% {[Parameterliste]) . 113 

PAUSE Dauer.140 

PBOX X_linlcs,Y_oben,X_rechts,Y_unten.240 

PCIRCLE X_mitte,Y_mitte,Radius [,Sw,Ew] ....240 

Zielvar$=PEEK$(Quell,Anzahl) . 211 

Var=PEEK(Adresse) . 209 

PEEKEVENT.263 

PELUPSE Xmit, Ymit,Xrad, Yrad [,Sw,Ew].241 

Var=PERMUT (Menge, Teilmenge).170 

PI.176 

PLOT Xpos,Ypos.241 

Var-POINT(Xpos,Ypos) .247 

POKE Adresse,Wert . 209 

POKE$ Ziel,Quellvar$ .211 

POLYFILL P)cte,Xp{) ,Yp{) [OFFSET Xo,Yo].241 

POLYLINE P)cte,Xp() ,Yp{) [OFFSET Xo,Yo].242 

Auswahl=POPUP(Menütxt$,Xpos,Ypos,Mod) . 258 

Var=POS{Dummy) . 54 

PRBOX X_lin]cs,Y_oben,X_rechts,Y_unten. 242 

Var=PRED(Arg) . 167 

Var$ = PRED{Expr$).154 

PRINT #Kan,USING"frm" [,;' lExpr [ ,Var, . ] _78 

PRINT #Kan, [;] "Txt"[[;,' ]var[;, ']Expr..;] ... 78 

PRINT ATXY{S,Z)[,;'][ "Text''][,;']... 

...[Var][AT(S,Z)][,;'][Expr] [, ; ' ] .51 

PRINT ATYX(S,Z) [,;'][ "Text''][,;']... 

...[Var][AT{S,Z)][,;'][Expr] [,; ' ] .51 

PRINT [AT{S,Z) ]USING "Frm" [, ;' ] [Var. . ] _49 

PRINT [AT{S,Z)][,;'][''Text''][,;']... 

...[Var][AT{S,Z)][,;'][Expr] [, ; ' ] .48 

PROCEDURE Name[([V1,V2%,V3$,VAR V4,..])] _ 99 


RETURN 
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PSAVE ''Programmname'' . 69 

PSET Xpos,Ypos,Farbe. 242 

PUT X_links,Y_oben,Var$ [.Modus] . 247 

PUT [#]Kanal [,Satznununer] . 81 

QSORT Fld$([+/-])[WITH Sort()][,Anz[,Fld2%()]] 123 

QSORT Fld{[+/-]) [,Anz [,Fld2%()]].123 

QUIT [x] . 137 

Radian::RAD (Gradwinkel). 176 

Var=RAND{n). 173 

Var=RANDOM(n). 174 

RANDOMIZE [Start] . 174 

RBOX X_links,Y_oben,X_rechts,Y_unten . 242 

Var=RC_INTERSECT{X,Y,B,H,X2&,Y2&,B2&,H2&) _ 248 

READ Var [ ,Var2,Var3%,Var4$, . .. ]. 119 

RECALL [#]Kanal,Feld$0,Anzahl,Zeilen . 78 

RECORD [#]Kanal,Satznummer . 82 

RELSEEK #Kanal,[-] Offset . 76 

REM [Kommentar] . 118 

RENAME ''Name_alt" AS "Name_neu". 68 

REPEAT. 89 

UNTIL Bedingung 

RESTORE [Label] . 119 

RETURN. 99 

RETURN Back. 97 

Var$=RIGHT$(Quell$ [.Anzahl]) . 152 

Var=RINSTR{Text$,Such$ [.Start] ) . 152 

Var=RINSTR([Start,] Text$,Such$) . 152 

RMDIR "Ordner" . 71 

Var=RND[ (0) ]. 174 

Var=ROL&(Wert,Bits) . 203 

Var=ROL(Wert,Bits) . 203 

Var^ROLI(Wert,Bits) . 203 

Var=ROR&(Wert,Bits) . 203 

Var=ROR(Wert,Bits) . 203 

Var=ROR|(Wert,Bits) . 203 

Var=ROUND(Arg [.Stelle] ) . 167 

RSET Ziel$i:Quell$ . 151 

RUBBERBOX Sx,Sy,Mb,Mh,Ex&,Ey& . 261 

RUN ["Programmname"] . 137 

SAVE "Programmname" . 69 

Var=SCALE(Faktor,Multiplikator,Divisor) .... 169 

SCREEN Modus. 248 

SCROLL OFF. 56 
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SCROLL ON.56 

SEEK #Kanal,[-] Position.76 

SELECT Expr (oder SWITCH Expr) . 93 

CASE Constl [TO Const2 [,[..] TO [..]]] 

[CONT] 

[DEFAULT oder OTHERWISE oder CASE ELSE] 
ENDSELECT oder ENDSWITCH 

SETCOLOR Reg,Rot,Grün,Blau.235 

SETDRAW Xpos,Ypos,Grad . 242 

SETTIME Zeit$,Datum$ . 140 

Var=SGN(Arg) . 165 

SHELL " [DOS-Befehl] " .116 

Var=SHL&(Wert,Bits) .201 

Var=SHL(Wert,Bits) . 201 

Var=SHL|(Wert,Bits) .201 

Var=SHORT(Wert).206 

SHORT{Adresse}=Wert . 209 

Var=SHORT{Adresse} . 209 

SHOWM.256 

Var=SHR&(Wert,Bits) . 202 

Var=SHR(Wert,Bits) . 202 

Var=SHRl(Wert,Bits) .202 

Var=SIN(Bogenmaß) .178 

Var=SIN(RAD(Gradwinkel)) . 178 

SINGLE{Adresse}=Realwert.209 

Realvar=SINGLE{Adresse} . 209 

Var=SINH(Bogenmaß) .180 

Var=SINH(RAD(Gradwinlcel) ).180 

Var^SINQ(DEG(Bogenmaß)) . 178 

Var=SINQ(Gradwinkel) . 178 

SIZEW [# [Nummer, Br, Ho.278 

SOUND Hertz,Dauer .147 

Var$=SPACE$(Anzahl) .154 

SPC (Anzahl) .51 

Var=SQR(Arg) . 169 

SSORT Fl$ ([ + /-]) [WITH Sort()][,Anz[,F2%()]] ... 123 

SSORT Feld( [ + /-])[,Anz [,Feld2%()]] .123 

STACKSIZE Bytes.217 

STOP.138 

STORE [#1 Kanal,Feld$()[,Anzahl] .78 

Var$=STR$(Wert [,Stellen,Realteil]) . 129 

Var$=STRING$ (Anzahl, "Text" ).154 

Var$ = STRING$ (Anzahl, Ascii).154 

SUB Var,Wert.163 
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Var=SUB{Wertl,Wert2) . 164 

Var=SUCC{Arg). 167 

Var$=SUCC(Expr$) . 154 

SWAP *Zeiger,Feld() . 219 

SWAP Element(x),Element(y) . 219 

SWAP Feldl 0 ,Feld2 0 . 219 

SWAP Varl,Var2 . 219 

Var=SWAP(Wert) . 206 

SWITCH Expr. 93 

SYSCOL, Objekt,Vcol,Hcol. 235 

SYSTEM [x]. 138 

TAB (Position). 56 

Var=TAN(Bogenmaß) . 178 

Var=TAN(RAD(Gradwinkel)). 178 

Var=TANH(Bogenmaß) . 180 

Var^TANH(RAD(Gradwinkel)) .180 

TBOX Modus,Xstart,Ystart,Breit,Hoch. 57 

TCLIP OFF. 59 

TCLIP Tx_links,Ty_oben,Tx_rechts,Ty_unten ... 59 

TCOLOR Attribut . 57 

TEXT Xstart,Ystart,''Text'' . 243 

TGET Tx_li,Ty_ob,Tx_re,Ty_un,Var$. 59 

Var$=TIME$. 141 

TIME$="Zeit-String" . 141 

Var^TIMER. 141 

TITLEW [#]Nummer, ''Text''. 278 

TOPW [#]Nummer . 279 

TOUCH [#]Kanal . 76 

TPBOX Modus,Xstart,Ystart,Breit,Hoch . 60 

TPUT Tx_links,Ty_oben,Var$ . 60 

Var$=TRACE$. 144 

Var$=TRIM$(Quell$) . 151 

TROFF . 145 

TRON Prozedur. 145 

TRON [#Kanal]. 145 

Var=TRUE. 147 

Var=TRUNC(Arg) . 167 

TTEXT Spalte,Zeile+Modus*256,''Text''. 60 

TTEXT Spalte, Zeile, ''Text'' . 60 

TYPE Typenname: . 100 

- ELEMENT-Typ Elementname 
ENDTYPE 

[Typenname:Variablenname.] 

Var$=UCASE$(Quell$) . 155 

UNTIL Bedingung . 89 

Var$=öPPER$(Quell$) . 155 
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Var=USHORT(Wert) . 205 

USHORT{Adresse}=Wert . 210 

Var=USHORT{Adresse) . 210 

Var=UWORD(Wert) . 205 

UWORD{Adresse)rWert . 210 

Var=UWORD{Adresse} . 210 

Var=V:Var .220 

Var=VAL(''Text'') . 132 

Var=VAL? (' 'Text'').133 

Funkt.name([Var,..,]VAR Refl[,Ref$,..]} _ 109 

Proz.name([Var,..,]VAR Refl[,Ref$,..]) . 109 

Var=VARIAT{Menge,Teilmenge).171 

Var=VARPTR(Var) . 220 

VOID Funktion 0.148 

VTAB Zeile.55 

WHILE Bedingung.90 

WEND 

WIN [ #]Nummer.279 

WINDFIND Xp,Yp,Var& . 279 

WINDGET Index,Varl& [,Var2&,Var3&,...] .280 

WINDSET Index,Wertl [,Wert2,Wert3,...] .281 

Var=WIND_GET(Index) .281 

Var=WORD(Wert) . 206 

WORD{Adresse)=Wert . 210 

Var=WORD(Adresse} . 210 

WRAP OFF .61 

WRAP ON .60 

WRITE [#Kanal,][''Text" [Var][,;']... 

...[Expr][,;'][,Var,Expr[,;']] . 51 

Var$=XLATE$ (Quell$,Feldl ()).155 

Ar gl XOR Arg2.160 

Var=Wertl XOR Wert2 . 201 

Var=XOR(Wertl,Wert2) .201 
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ANHANG G. 'BEFEHLSLISTE' 


/*...*/-118 

//- 118 

ABSO-164 

ACOSO-176 

_ADAP-244 

ADD {AD}-162 

ADDO-162 

ALERT {AL}-256 

AND oder &&-159 

ANDO/AND-199 

ARCOSHO-179 

ARRAYFILL {ARR}-120 

ARRPTRO {*}-219 

ARSINHO-179 

ARTANHO-179 

ASCO-127 

ASINO-177 

ATANO-177 

ATNO-177 

BASEPAGE-216 

BCHGO-198 

BCLRO-198 

BGET{BG}-77 

BIN$0-126 

BLOAD {BL} -65 

BMOVE {BM} -211 

BOUNDO-172 

BOUNDARY { BOU }-230 

BOUNDBO-173 

BOUNDCO-173 

BOUNDWO-173 

BOX {B}-236 

BPUT{BP}-77 

BSAVE { BS }-65 

BSETO-198 

BTSTO-198 

BYTEO-204 

BYTE{} /BYTE{}=-206 

C:0-111 


CALL {CAL} - 110 

CARDO-204 

CARD{} /CARD{}=-207 

CASEfTO] {CA} -93 

CEILO-166 

CFLOATO- 164 

CHAIN {CHAI}- 136 

CHAR{} /CHAR{}=-207 

CHDIR{CHD}-69 

CHDRIVE {CHDR}-70 

CHR$0-128 

CINTO-164 

CIRCLE {CI} -236 

CLEAR{CLE}-138 

CLEARW#-273 

CUP {CU }-245 

CLIP# {CU} -273 

CUP OFF {CU O} -246 

CLOSE {CL} -74 

CLOSEW# {CLW}-—274 

CLR-139 

CLS- 139 

COLOR{CO}-230 

COMBINO-169 

CONT{CON}-136 

CONT{CON }-93 

COSO-177 

COSHO-180 

COSQO-178 

CRSCOL-54 

CRSUN-54 

CURVE {CU} -237 

CVDO-128 

CVIO- 128 

CVLO-128 

CVSO-128 

_DATA-120 

DATA {D}-118 

DATEI-139 

DATE$=-140 

DEC / -162 
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Befehlsliste 


DEC$0-126 


DEFAULT {DEFA}-93 

DEFBIT {DEFBI}- 124 

DEFBYT{DEFB}- 125 

DEFDBL{DEFD}- 125 

DEFFILL {DEFF}-232 

DEFFLT{DEFFL}- 125 

DEFFN-96 

DEFINT{DEFI}- 125 

DEFLINE {DEFL}-232 

DEFMOUSE { DEFMO}- 252 

DEFNUM {DEF}- 146 

DEFSNG (DEFS)- 126 

DEFSTR {DEFST}- 126 

DEFTEXT{DEFT}-234 

DEFWRD {DEFW}- 126 

DEGO- 176 

DELAY (DEL)- 140 

DELETE {DEL}- 121 

DFREEO-65 

DIM{D1}- 121 

DIM?0- 122 

DIR-70 

DIR$0-70 

DIV- 163 

DIVO- 163 

DO . LOOP {DO..L}-88 
DOUBLE{} / DOUBLEÖ= 207 

DPEEKO-207 

DPOKE { DP}-208 

DRAGBOX-260 

DRAW {DR}-237 

DRAWText” { DR }-238 

DRAWO-239 

EAVAIL {EA}-220 

EDIR-221 

EDIT {ED}- 136 

EGET {EG}-221 

EKILL { EK}-222 

ELLIPSE {ELL}-239 

ELSEIF {EIF}-91 

ELSE {EL}-91 

EMEMGET { EMEMG } — 224 
EMEMPOP { EMEMPO}- 225 
EMEMPUSH{EM}-225 


EMSGET {EMS}-226 

EMSPUT {EMSP}-226 

END-136 

ENDFUNC {ENDF}-97 

ENDIF{EN}-91 

ENDSELECT { ENDS}-93 

ENDTYPE {ENDT}-100 

EOFO-79 

EPARLOAD{EPARL}-227 

EPARSAVE { EPA}-227 

EPOP {EPO}-222 

EPUSH{EP}-223 

EQV-159 

EQVO/EQV-199 

ERASE {ER}-122 

ERR-141 

ERR$0-141 

ERROR {ERR}-142 

EVENO-164 

EXEC {EXE}/EXECO —115 

EXISTO-65 

EXITIF{EXIF}-90 

EXPO-168 

EXPROC{EXP}-107 

FACTO-170 

FALSE-146 

fatal-142 

FGETDTAO-66 

FIELD {FIE}-80 

_FILE0-79 

FILES {Fl} -71 

FILESELECT { FILESE}-257 

FILL { Fl}-239 

FIXO-166 

FLOORO-166 

FN {@}-105 

FOR.. NEXT { F.. N }-89 

FORM INPUT-46 

FORM INPUT AS-46 

FRACO-165 

FREO-217 

FREEFONT {FR} -216 

FSETDTAO-66 

FSFIRSTO-67 

FSNEXTO-67 
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FULLW{FUL}- 274 

FUNCTION {FU}-97 

GET{GE}-247 

GET# {GE}-81 

GETEVENT {GETE}-261 

GETFIRST#{GETF}-274 

GETNEXT# { GETN } —275 

GETSIZEO-246 

GOSUB {GOoder®} - 106 

GOTO {GOT}-106 

GRAPHMODE{G}-234 

HARDCOPY {HA}-84 

HEX$0-127 

HICARDO-204 

HIDEM {Hl}-254 

HIWORDO-204 

HTAB {HT}-55 

IF-91 

IMAXO-171 

IMINO-172 

IMP-160 

IMPQ/IMP-200 

INC / ++-162 

INFOW# {INF}-276 

INKEY$-143 

INP(#)-77 

INP(PORT)-84 

INPUT {INP}-46 

INPUT$-48 

INSERT {INS}-122 

INSTRO-151 

INTO-167 

INTRO-112 

INTÖ /INT0=-208 

KEYGET {K}-144 

KEYTEST { KEYT}-144 

KILL { Kl}-67 

KILLEVENT-262 

LCASE$0-155 

LEFT$0-151 

LENO-153 

LET{LE}-146 


LINE {U }-240 

UNE INPUT-48 

LIST {US}-68 

LUST {LL}-85 

LOAD {LOA}-68 

LOADFONT { LOADF} - 216 

LOCO-79 

LOCAL {LOC}-105 

LOCARDO-205 

LOCATE { LOCAT}-55 

LOCAXY-55 

LOCAYX-55 

lofo-80 

LOGO-168 

LOGIOO- 169 

LOG20-168 

LONG{} /LONG{}=-208 

LOWER$0-155 

LOWORDO-205 

LPEEKO-208 

LPOKE { LP}-209 

LPOSO-85 

LPRINT {LPR}-85 

LSET {LS}-150 

MAKELONGO-205 

MALLOCO-213 

MAT ABS {MABS}- 183 

MAT ADD- 189 

MAT BASE {MBASE}- 183 

MATCLR {MC}- 183 

MATCPY {MCP}- 186 

MATDET {MDET}- 189 

MAT INPljr{M INPUT} — 187 

MATINV- 190 

MAT MUL {MM} - 191 

MATNEG {MNEG}- 183 

MATNORM {MNORM}- 194 

MAT ONE {MONE}- 184 

MATPRINT{MP}- 188 

MAT QDET {M QDET} — 195 
MATRANG {MRANG} - 195 
MAT RANK {MRANK}— 196 
MAT READ {MREAD}— 188 

MAT SET {MS} -184 

MATSUB-196 
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MATTRANS { MT}- 

MATTRl {MTRI}- 

MATXCPY {MX} - 

MAX($)- 

MAXO- 

_MD- 

MEMAND {MEMA}- 

MEMBFILL{MEM}- 

MEMLflLL{MEML}- 

MEMOR {MEMO}- 

MEMWFILL{MEMW}-— 

MEMXOR {MEMX}- 

MENU KILL- 

MENU Menütext$0- 

MENUO- 

MFREEO- 

MID$0- 

MID$0=- 

M1N($)- 

MINO- 

M1RROR$0- 

MKD$0- 

MKDIR {MK} - 

MKI$0- 

MKL$0- 

MKS$0- 

MODO- 

MODE { MOD }- 

MONITOR {MON}- 

MOUSE { MO}- 

MOUSEK- 

MOUSEX 

MOUSEY 

MOVEW# {MOV}- 

MSHRINKO- 

MUL{MU} - 

mulo- 

NAME..AS {NAAS} — 
NEW- 

not- 

NOT cxler !- 

OCT$0- 

ODDO - 

ON... GOSUB- 


ON BREAK [CasrT][GCSLJB| 108 


ON ERROR [GOSUB]-142 

ON MENU-262 

ON r«MU BLmON GOSUB 266 

ON MENU GOSUB-266 

ON MENU KEY GOSUB-267 
ONhü^U MESSAGE GOSUB 268 

OPEN {O}-74 

OPENW# {OW} -277 

OPTION BASE {OPT B} -122 

OR Odern-160 

ORO/OR-200 

OUT{OUPORT}-84 

OUT# {OU} -77 

P:0-113 

PAUSE {PA} -140 

PBOX { PB}-240 

PCIRCLE {PC} -240 

PEEK$0-211 

PEEKO-209 

PEEKEVENT{PEEKE}-263 

PELUPSE {PE} -241 

PERMUTO-170 

PI-176 

PLOT {PL} -241 

POINTO-247 

POKE {PO} -209 

POKE$-211 

POLYFILL {POLYF}-241 

POLYLINE {POL} -242 

POPUPO-258 

POSO-54 

PRBOX{PRB}-242 

PRED($)-154 

PREDO-167 

PRINT {? oder P}-48 

PRINT#-78 

PRINT #USING-78 

PRINT ATXY { PATXY} - 51 
PRINT ATYX { PATYX} - 51 
PRINT USING { P USING } 49 

PROCEDURE { PRO}-99 

PSAVE { PSA}-69 

PSET{PS}-242 

_PSP-214 


184 

185 

188 

153 

172 

244 

212 

212 

213 

212 

213 

212 

272 

269 

263 

214 

152 

150 

153 

172 

150 

128 

-71 

128 

128 

128 

165 

147 

113 

254 

255 

276 

214 

163 

163 

-67 

139 

200 

160 

127 

165 

108 
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PUT {PU}-247 

PUT# {PU}-81 

QSORT {Q}-123 

QUIT {QU}-137 

RADO-176 

RANDO-173 

RANDOMO-174 

RANDOMIZE { RA }-174 

RBOX {RB}-242 

RCJNTERSECTO-248 

READ {REA}-119 

RECALL { REC}-78 

RECORD { RECO}-82 

RELSEEK {REL}-76 

REM {Roder*}-118 

RENAME...AS {REN..AS} - 68 

REPEAT{ REP }-89 

RESTORE { RES}-119 

RESUME{RESU}-143 

RETURN {RET}-97 

RETURN {RET}-99 

RIGHTIO-152 

RINSTRO-152 

RMDIR{RM}-71 

RNDO-174 

ROLO-203 

RORO-203 

ROUNDO-167 

RSET{RS}-151 

RUBBERBOX-261 

RUN {RU}-137 

SAVE {SA}-69 

SCALEO-169 

SCREEN {SC}-248 

SCROU. OFF {SCRO OF} - 56 
SCROLLON {SCRO ON} - 56 

SEEK {SE}-76 

SELECT-93 

SETCOLOR {SET}-235 

SETDRAW {SETD}-242 

SETTIME {SETT}-140 

SGNO-165 

SHELL {SH}-116 


SHLO oder «-201 

SHORTO-206 

SHORTÖ /SHORT{}= -—209 
SHOWM {SHOW}—256 

SHRQ oder »-202 

SINO-178 

SINGLEÖ / SINGLE{}=-209 

SINHO-180 

SINQO-178 

SIZEW# {SIZ}-278 

SOUND {SO} -147 

SPACE$0-154 

SPCO-51 

SQRQ-169 

SSORT{SS}-123 

STACKSIZE {STA}-217 

STOP-138 

STORE {ST} -78 

STR$0-129 

STRING$0-154 

SUB-163 

SUBO-164 

SUCC($)-154 

SUCCO-167 

SWAP {SW} -219 

SWAPO-206 

SYSCOL {SY} -235 

SYSTEM {SYST}-138 

TABO-56 

TANO-178 

TANHO-180 

TBOX {TB} -57 

TCLIP {TC} -59 

TCOLOR {TCO}-57 

TEXT {T}-243 

TGET {TGE}-59 

TIMES-141 

TIME$=-141 

TIMER-141 

TITLEW# {TIT}-278 

TOPW#{TO}-279 

TOUCH {TOU}-76 

TPBOX {TPB}-60 

TPUT {TPU}-60 

TRACE$-144 
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TRIM$0- 151 

Tonpp /TRnpx lAP 

Notizen: 

TRriM /TD \ I^P 


TRON Pmr /TR \ 14“; 


XDI IC 147 


TRI INirA 147 


XC C7 


^ 1 J / 

TTPYT /TT\ 


typp /tv\ i/vi 


1 ir*AQP«A ICC 


1 IPPPRtA ICC 


1 ICWnPXA 7nc 


USHORTÖ / USHORT{}= - 210 

1 iwnRnA onc 



UWORDO /UWORD{}= 210 

VAI n 1 *^7 




VAL>A n? 


\/AD 109 


X/ARIAXA 171 


VARPTPA rw \ Tin 


vnin /\/n i-uHor i iaq 


\/TäR f\/T \ PC 


WHILE „WEND {W..WE}-90 

WIM -H /wi \ 170 




WINDFIND {WINDF} - 279 
WINDGET {WINDG } — 280 

wiMncPT/wiMnc \ 101 




WIMH r:rXA 701 


WnRHA 7A4 


WORDÖ /WORD{}=—210 
WRAPOFF {WROFF} —61 
WRAPON {WRON}—60 

WRITP /WD 1 CI 





V 245 



yi ATF«A ICC 


YnR rv^«r.AA I4A 


XORO / XOR 201 


Y 745 
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ANHANG H. STICHWORT - INDEX' 


I Byte absolut lesen.209 

I Byte absolut lesen / schreiben.206 

I Byte absolut schreiben.209 

16 Bit-Integerzahl. 128 

1 ^e-lntegervariablen deklarieren. 125 

2 Byte absolut lesen / schreiben.207,210 

2 Byte signed lesen / schreiben.207, 208, 209, 210 

2 ^e signed schreiben.208 

2-Zeichenstring. 128 

2Byte-lntegervariablen deklarieren. 126 

32 Bit-Integerzahl. 128 

32Bit erweitern.206 

32Bit-lnteger-Zufallszahl. 174 

386/486er Register-Longs. 115 

4 Byte signed lesen / schreiben.208, 209 

4-zieichenstring. 128 

4Byte-Fließkommavariablen deklarieren. 126 

4Byte-lntegervariabien deklarieren. 125 

4Punkt-’Bezier’-Kurve zeichnen.237 

8-Zeichenstring. 128 

8Byte-Fließkommavariablen deklarieren. 125 

absolut.183,204,207 

Absolut-Betrag ermitteln. 164 

Absolut-Byte. 173 

Accu AX-Register-Word. 114 

Additionsbef^l. 162 

Äquivalenz. 159 

Äquivalenz zweier Inteeerwerte. 199 

allgemeiner Ereignispuner.263 

Arcus-Cosinus. 176 

Arcus-Sinus. 177 

Arcus-Tangens. 177 

Arcus-Tangens. 177 

ASCII-Textzeichen. 128 

ASCII-Wert. 127 

ASCII-Zeichen. 154 

Attribute ermitteln.239 

aufrunden. 166 

Ausschnitt.240 

Ausschnitt-Copy in das EMS.226 

Auswahl-Bestimmung.93 

Autostart. 136 

AX-Register-Word. 114 

Base BX-Register-Word. 114 

Base-Pointer-Word. 114 

bedingte Schleife.89, 90 

bedingte Verzweigung zu Prozeduren. 108 

bedingter Schleifenabbruch.90 

Bedineungsabfrage.91 

Befehlszeile liefern. 144 

begrenzen.273 

Bereichsüberschreitung. 172 

Betrag ermitteln. 164 
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Bezier-Kurve zeichnen.237 

Bildpunkt.247 

Bildschirm löschen.139 

Bildschirm-ZFenster-Breite ermitteln.245 

Bildschirm-Höhe ermitteln.245 

Bildschirm-Modus bestimmen.248 

Bildschirmbereich im Textmodus setzen.60 

Bildschirmbereich im Textmodus speichern.59 

Bildschirmbereich setzen.247 

Bildschirmbereich speichern.247 

Bildschirmgröße maximieren.274 

Binär.126 

binärer Logarithmus.168 

Bits links rotieren.203 

Bits links verschieben.201 

Bits rechts rotieren.203 

Bits rechts verschieben.202 

Block-Copy in EMS.225 

Block-Copy in RAM.224 

Block-Move.225 

Bogenmaß.176 

Boolvariable(n) deklarieren.124 

Break-Funktion behandeln.108 

Breakpoint-Interrupt $3 auslösen.113 

Buchstabenumwandlung.155 

BX-Register-Word.114 

^ewert.212 

‘C-Text lesen / schreiben.207 

Cardinal-Word.173 

Clipping.246 

COM/EXE-Programm laden/starten.115 

COMMAND.COM starten.116 

Copy.224 

Copy in das EMS.226 

Cosinus-Funktion.177 

Cosinus-Funktion.178 

Count CX-Register-Word.114 

Cursor positionieren.55 

Cursorspalte bestimmen.55 

Cursorspalte liefern.54 

Cursorzeile bestimmen.55 

Cursorzeile liefern.54 

CX-R^ister-Word.114 

Data DX-Register-Word.114 

DATA-Werte auslesen.119 

DATA-Zeiger setzen.119 

Datei auswählen.257 

Datei in Speicher laden.65 

Datei-Existenz prüfen.65 

Dateiende prüfen.79 

Dateilänge ermitteln.80 

Daten aus Datei lesen.77 

Daten ausgeben.48 
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Daten formatiert ausgeben.49 

Daten in Datei ausgeoen.78 

Daten positioniert ausgeben.51 

Daten-Speicher. 118 

Datenausgabe formatiert in Datei.78 

Dateneingabe.46 

Daten kanal.74 

Datensatz lesen/schreiben.81 

Datensatz unterteilen.80 

Datum einstellen. 140 

Datumsformat bestimmen. 147 

dekadischer Logarithmus. 169 

Dekrementierung. 162 

Descriptor-Adresse liefern.219 

Destination-Index-Word. 114 

Determinante. 189 

Determinante schnell berechnen. 195 

Dezimal. 126 

Dezimalstellen-Zufallszahl. 174 

dimensionieren. 121 

Directo.ry (erweitert) ausgeben.70, 71 

Direkt-Übergabe. 109 

Disjunktion. 160, 212 

Disjunktion zweier Integerwerte.200 

Disk-Transfer-Area.66 

Divisionsbefehl. 163 

DOS.137,138,225 

DOS-Befehl ausführen. 116 

DOS-RAM.221,223 

DRAW-’Turtle’ positionieren.242 

Dreiecksmatrix erzeugen. 185 

Druckerausgabe.85 

Druckkopfposition ermitteln.85 

Dummy-Zuweisung. 148 

DX-Register-Word. 114 

Einheitsmatrix. 184 

einzeilige Funktion definieren.96 

Bnzelbit auf an/aus testen. 198 

Einzelbit löschen. 198 

Einzelbit setzen. 198 

Einzelbit umkehren (an/aus). 198 

Einzelelement einfügen. 122 

Einzelelement löschen. 121 

Einzel variablen löschen. 139 

Einzelzeichen einiesen. 143 

Ellipse(n-Bogen) zeichnen.239 

Ellipsen-Ausschnitt.241 

El^-Block-Copy in RAM.224 

EMS-Block-Move in das DOS-RAM.225 

EMS-Daten löschen.222 

EMS-Daten-Copy in RAM.221 

EMS-Daten-Move.222 

EMS-Konfiguration.227 

EMS-Seiten.220 

Endlosschleife.88 
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Ereignispuffer.263 

Ereigni^uffer löschen.262 

erweitern.206 

Event-Kontrolle.261, 262, 263 

excl. Disjunktion zweier Integerwerte.201 

Exponentialfunktion.168 

externer Font.216 

Fakultätsfunktion.170 

Fall-Entscheidung.93 

Farb-Anzahl ermitteln.244 

Farbbestimmung.242 

Farbe für Menüs, Fenster etc. bestimmen.235 

Farbregister einstellen.235 

Farbwert eines Bildpunktes ermitteln.247 

Fehler simulieren.142 

Fehler-Verzweigung.142 

Fehlerart ermitteln.142 

Fehlercode ermitteln.141 

Fehlertext liefern.141 

Feld dimensionieren.121 

Feld löschen.122 

Feld mit Wert belegen.120 

Feld-Basiselement.122 

Feld-Sortierung.123 

Feldelemente.122 

Felder löschen.138 

Felder tauschen.219 

Fenster.235 

Fenster auf Bildschirmgröße maximieren.274 

Fenster bewegen.276 

Fenster schließen.274 

Fenster öffnen.277 

Fenster-Breite ermitteln.245 

Fenster-Event.268 

Fenster-Größe bestimmen.278 

Fenster-Höhe ermitteln.245 

Fenster-Informationszeile bestimmen.276 

Fenster-Inhalt löschen.273 

Fenster-Parameter lesen.280, 281 

Fenster-Parameter setzen und aktivieren.279 

Fenster-Titelzeile bestimmen.278 

Fensterbereich.273 

Fenstemummer ermitteln.279 

Fett-Text an/aus.234 

Filepointer.76 

Filepointerposition.79 

Flag-Register-Word.114 

Fließkommawert.164 

Flächen mit Muster füllen.239 

Font laden / löschen.216 

formatierte Ausgabe in Datei.78 

fortsetzen.143 

Fortsetzungs-Anweisung.93 

FUNCTION-Aufruf.105 

Funktion mehrzeilig.97 
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füllen.239 

Füllmuster bestimmen.232 

Ganzzahl abrunden. 167 

Ganzzahl aufrunden. 166 

gefüllten Ellipse(n-Ausschnitt) zeichnen.241 

gefüllten Kreis(-Ausschnitt) zeichnen.240 

gefülltes Rechteck zeichnen.240 

gefülltes Rundeck zeichnen.242 

gefülltes Vieleck zeichnen.241 

genaue Cosinus-Funktion. 177 

genaue Sinus-Funktion. 178 

gerade. 164 

GFA-Staclö.217 

Grad. 176 

Grafik-Adapter ermitteln.244 

Grafik-Clipping aufheben.246 

Grafikauspbe^ereich.245 

Grafikmodus.243 

Grafikmodus bestimmen.234 

größten Integer-Wert ermitteln. 171 

größten Realwert ermitteln. 172 

Größten String ermitteln. 153 

Gummiband-Box (Lasso) produzieren.261 

Harddisk-Speicher ermitteln.65 

Hardware-Port.84 

Hexadezimal. 127 

Hl- und LOW-Word eines Longwords tauschen.206 

Hl-Word.206 

Hl-Word eines Wertes liefern.204 

Hinweis-Box erzeugen.256 

Hyperbel-Area-Cosinus. 179 

Hyperbel-Area-Sinus. 179 

Hyperbel-Area-Tangens. 179 

Hyperbel-Cosinus. 180 

Hyperbel-Sinus. 180 

Hype rbel-Tangens. 180 

lEEE-Double lesen / schreiben.207 

lEEE-Double-Realzahl. 128 

lEEE-Single lesen / schreiben.209 

lEEE-Single-Realzahl. 128 

Implikation. 160 

Implikation zweier Integerwerte.200 

Informationszeile.276 

Inkrementierung. 162 

Integer-Additionsfunktion. 162 

Integer-Dekrementierung. 162 

Integer-Divisionsfunktion. 163 

Integer-Modula-Funktion. 165 

Integer-Multiplikationsfunktion. 163 

Integer-Subtraktionsfunktion. 164 

Integer-Wert. 171 

Integer-Zufallszahl. 173 

Integerwert in Fließkommawert wandeln. 164 

Integerwerte. 199 

Inverse. 190 

Klangausgabe. 147 
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kleinsten Wert ermitteln.172 

Kleinsten String ermitteln.153 

Koeffizient.169 

Kommentar in Befehlszeile.118 

Konfiguration laden.227 

Konjunktion.159 

Konjunktion zweier Integerwerte.199 

Konjunktion zweier Speicherblöcke.212 

Koordinaten.255 

kopieren.211 

Kreis(-Bogen) zeichnen.236 

Kreis-Ausschnitt zeichnen.240 

Kreiszahl.176 

Lasso.261 

Laufwerk bestimmen.70 

Laufzeit ermitteln.141 

Leerzeichen ausgeben.51 

Leerzeichen löschen.151 

Leerzeichen-String bilden.154 

Linie zeichnen.240 

Linien-Attribute bestimmen.232 

Linien-Ellipse(n-Bogen) zeichnen.239 

Linien-Kreis(-Bogen) zeichnen.236 

Linien-Rechteck zeichnen.236 

Linien-Rundeck zeichnen.242 

Linien-Vieleck zeichnen.242 

linksbündig.150 

linksbündigen Teilstring.151 

Listen-Reoiteck.275 

list^eschützt.69 

Lisön| ausd rucken.85 

Loganthmus.168 

Lokale Variablen deklarieren.105 

Longwert.213 

Longword.205 

LOw-Byte eines Wertes absolut liefern.204 

LOW-Word.206 

LOW-Word eines Wertes absolut liefern.204, 205 

LOW-Word eines Wertes signed liefern.205 

löschen.67. 122, 135 139, 151, 183, 198,216,222,262 

MALLOC-Speicher.214 

Maschinenprogramm aufrufen.110 

lui_ UI _ L ____u /- __I l I 


Maschinenprogramm nach PASCAL-Konvention aufrufen.... 113 

Matrix absolut setzen.183 

Matrix füllen.184 

Matrix löschen.183 

Matrix negieren.183 

Matrix transponieren.184 

Matrix transponiert kopieren.188 

Matrizen (-Ausschnitt) kopieren.186 

Matrizen multiplizieren.191 

Matrizen-Determinante genau berechnen.189 

Matrizen-Inhalt aus DATAs lesen.188 

Matrizen-Inhalt aus Datei lesen.187 

Matrizen-Inhalt ausgeben.188 
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Matrizen-Inhalte addieren. 189 

Matrizen-Inhalte subtrahieren. 196 

Matrizen-Inverse berechnen. 190 

Maus- und Shift-Status gesamt ermitteln.254 

Maus-X-Koordinate ermitteln.255 

Maus-Y-Koordinate ermitteln.255 

Mausform bestimmen.252 

Mausknopf-Event.266 

Maustasten-Status ermitteln.255 

Mauszeiger anschalten.256 

Mauszeiger ausschalten.254 

Mehrfacn-Zeichenkette bilden. 154 

MENUO-Ereignispuffer löschen.262 

Menü.269 

Menü erzeugen.258 

Menü-Event.266 

Menüs, Fenster etc. bestimmen.235 

Modula-Funktion. 165 

Monochrom-Karte.60 

Move.225 

MSDOS- oder BlOS-lnterrupt aufrufen. 112 

MSDOS-Handle liefern.79 

Multiplikationsbefehl. 163 

Muster füllen.239 

Nachkommastellen ermitteln. 165 

natürlicher Logarithmus. 168 

Negation.160 

Negation eines Integerwertes.200 

neueren. 183 

normieren. 194 

Nullpunkt bestimmen.245 

Numerisch. 126, 127, 132 

nächstes Listen-Rechteck ermitteln.275 

nächstgrößere Ganzzahl aufrunden. 166 

nächstgrößere Ganzzahl ermitteln. 167 

nächstgrößeres ASCII-Zeichen ermitteln. 154 

nächstkleinere Ganzzahl ermitteln. 167 

nächstkleineres ASCII-Zeichen ermitteln. 154 

öffnen.277 

Oktal. 127 

Ordner erzeugen / löschen.71 

Ordner wechseln.69 

Ordnernamen ermitteln.70 

P-Grafikbefehle.230 

Parameter.279, 281 

PC-spezifische Umwandlung. 155 

Permutationsfunktion. 171 

Plotter(-Turtle’)-Attribute ermitteln.239 

Pointer tauschen.219 

Pop-Up-Menü erzeugen.258 

Proc.-Bestimmung frenster-Event).268 

Proc.-Bestimmung (Mausknopf-Event).266 

Proc.-Bestimmung ^enü-Event).266 

Proc.-Bestimmung (Tastatur-Event).267 

PROCEDURE-Aufruf. 106 

Programm als ASCII-Code listen/speichem.68 
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Programm beenden.136 

Programm fortsetzen.136, 143 

Programm in Arbeitsspeicher laden.68 

Programm laden (Autostart).136 

Programm speichern (listgeschüm).69 

Programm starten.137 

Programm unterbrechen.138, 140 

Programmende (Rückkehr zum DOS).137 

Programmlisting ausdrucken.85 

Programmsegment-Präfix-Ad resse. 2 14, 216 

Programmspeicher löschen.139 

Prüfung auf Cardinal-Word (0 bis m535).173 

Prüfung auf Signed-Word (-32768 bis +32767).173 

Pulldown-Menü deaktivieren.272 

Pulldown-Menü erstellen.269 

Punkt zeichnen incl. Farbbestimmung.242 

Punkte zeichnen und verbinden.237 

Quick-Sortierung.123 

RAM.221, 225 

Rand bei ‘P’-Grafikbefehlen an/aus.230 

Rang einer Matrix ermitteln.195 

Realwert.172 

Rechteck im Textmodus zeichnen.57, 60 

Rechteck zeichnen.236, 240 

Rechteck zeichnen.240 

Rechteckliste initialisieren.274 

rechtsbündig.150, 150 

Reservierung.213 

rotieren.203 

Rundeck zeichnen.242 

runden.166 

Rundungs-Funktion.167 

Rückkehr zum DOS.137 

Rücksprung.99 

rückwärts suchen.152 

Satzzeiger positionieren.82 

Schieb^ox produzieren.260 

Schleifenabbruch.90 

schließen.274 

schnelle Cosinus-Funktion.178 

schnelle Sinus-Funktion.178 

Screen-Copy in das EMS.226 

SCREEN-Modus ermitteln.244 

Segmentanteil ermitteln.217 

Shell-Sortierung.123 

Shift-Status ermitteln.254 

signed.204, 208 

Signed-Word.173 

Sinus-Funktion.178 

Skalierungsfunktion.169 

Source-Index-Word.114 

spaltenweise normieren.194 

Speicher auf Datenträger sichern.65 

Speicher mit Bytes, Vwrds, Longs füllen.212, 213 
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Speicher-Kopie. 

Speicherbeoarf für GET-Befehl. 

Speicherblock kopieren. 

Speicherblöcke. 

spiegeln. 

Sprung zu Label. 

Sprung zu Prozedur-Ende. 

Stack-Pointer-Word. 

Start-Index. 

Stellen-Begrenzung. 

String. 

String in Speicher kopieren. 

String linksbündig. 

String rechtsbündig. 

String rückwärts suchen. 

String suchen. 

Stringeingabe. 

Stringfeld lesen, ablegen. 

Stringlänge ermitteln. 

subtrahieren. 

Subtraktionsbefehl. 

suchen. 

System-Speicher-Reservierung. 

Systemdatum bestimmen. 

Systemdatum ermitteln. 

Tabulator setzen. 

Tangens. 

Tastatur abfragen. 

Tastatur-Event. 

Tasten-Code liefern. 

tauschen. 

Teildatei. 

Teilstring ermitteln. 

Teilstring zuweisen. 

Text aufMonochrom-Karte ausgeben. 

Text im Grafikmodus ausgeben. 

Text-Bildschirm ausdrucken. 

Text-Scrolling. 

Textattribut rm Textmodus bestimmen. 

Textausgabe-Bereich bestimmen. 

Textbiitßchirm-Adresse liefern. 

Textzeichen. 

Textzeichen wandeln. 

Titelzeile bestimmen. 

Token-Code. 

Trace-Modus. 

Turtle positionieren. 

Turtle-Grafik. 

^pe-Länge ermitteln. 

Typenstruktur. 

Llhrzeit einstellen. 

umbenennen. 

Um wandeln zweier Werte in ein Longword 

Umwandlung. 

Umwandlung von Bogenmaß in Grad. 


.211 

.246 

.211 

.212 

. ISO 

. 106 

. 107 

. 114 

. 183 

. 146 

. 129 

.211 

. ISO 

. ISI 

. IS2 

. ISI 

.46 

.78 

.IS3 

. 196 

. 163 

67, ISI, IS2 

.213 

. 141 

. 140 

. 139 

.S6 

. 178 

. 144 

.267 

. 144 

.206 

.77 

. ISI, IS2 

. ISO 

.60 

.243 

.84 

.S6 

.S7 

.S9 

. 57 

. 127 

.133 

.278 

.69 

. I4S 

.242 

.238 

. IS3 

.100 

. 140 

.67,68 

.20S 

. ISS 

.176 


(§[^) HotSpot 




























































Stichwon-Index 


Umwandlung von Grad in Bogenmaß.176 

ungerade.165 

Unter-Bedingungsabfrage.91 

Unterbrechnung.140 

Unterprogramm.99 

Variablen löschen.138 

Variablen-Adresse.219, 220 

Variablen-^uweisung.146 

Variablen-Ubergabe direkt.109 

Variablen/Felder/Pointer tauschen.219 

Variationsfunktion.170 

Vektor.191 

verschieben.201 

Verzeichnis.69 

Verzeichnis erzeugen / löschen.71 

Verzeichnisnamen ermitteln.70 

Verzweigung.108 

Verzweigung bei Fehler.142 

Vieleck zeichnen.241 

Vorzeichen ermitteln.165 

Wahr-Konstante.147 

Wahrheitswerte.159, 160 

Wert auf 32Bit erweitern.206 

Wertrückgabe-Anweisung.97 

Window-Event.268 

Word wert.213 

Wurzelfunktion.169 

Zahlenformat bestimmen.147 

Zeichenfarbe bestimmen.230 

Zeichenkette bilden.154 

Zeichenkette spiegeln.150 

Zeichenketteneingabe.48 

Zeichenkettenvanable(n) deklarieren.126 

Zeichenspalte ermitteln.54 

zeilen-Zspaltenweise normieren.194 

Zeitangabe ändern.76 

Ziffem-PRINTs.146 

Zufallszahl.173 

Zufallszahlengenerator.174 

zuweisen.150 

Zählschleife.89 
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Das PREMWM-Buch zum 

GFA BASIC 

für MSDOS 



GFA BASIC 

für MSDOS 



Zu diesem Buch 

Dieser COLID - HotSpot bietet eine komplette Be¬ 
schreibung aller Befehle und Funktionen des GFA- 
BASIC unter MSDOS und liefert Ihnen kompaktes 
Wissen über diese hervorragende Programmier¬ 
sprache. Er wurde in erster Linie als Schnelleinstieg 
und komprimierte Übersicht mit ausführlichem Begrl'fs- 
index, sowie Befehls-, Syntax- und Fehlertabellen 
konzipiert und ist so mit seiner geballten Information im 
handlichen Taschenformat jederzeit griffbereit. 
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